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How to use these programs 

Each program is arranged as follows: 

1. On the left of the page, explanatory information and the 
'execution sequence', the sequence of keystrokes necessary for 
running the program. Results displayed are printed in gold. 

2. In the first column on the right hand side of the page, the 
sequence of keystrokes which make up the program. 

3. In the second and third columns on the right hand side of the 
page, the program in check symbol and step number form 
(see section on checking the program). 


Notes 

1. Where a key has more than one function, the relevant function is 
printed as the keystroke in the first column 

COS 


e.g. the keystroke 


8 


may appear as 8, cos or arccos. 


2. The symbol ▼ within a program always refers to the key 

ChN/# 

3. The symbol # refers to 


•/EE/- 


4. The abbreviation gin is 'go if neg' and so refers to the key [T] 

go if neg 


Entering the program 


To enter a program into the calculator: 


1. Press 


AT 


AT 


2 


0 


0 


go to 


2 . 

3. 


4. 


Press 


▲T 


learn 

RUN 


Press the sequence of keys for 
the program as shown in the 
first column of the program 
page. 


Press 


C/CE 


Display shows step programmed 
at 00 in check symbol form as 
described below. 

No change in display. 

At each stage the step about to 
be overwritten is displayed. 
When the machine is first 
switched on every step is zero. 

Normal number display is 
resumed. 


5. 


Press 


AT 


AT 


2 _ 
go to 




The step programmed at 00 will 
be displayed. 
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Checking the program 


Each of the programs in the library is shown in check symbol form in 
the second column on the right-hand side of the page. 


Press 


WCE 


._, ,_, repeatedly, and at each stage the check symbol will 

appear on the left of the display with the step number on the right. 
Ignore the four zeros in the display. 


e.g. A. oooo 03 


check step 

symbol number 


After stepping through the 


AT 


AT 


0 00 


program, press 
before execution. 


go to 

Finally, press [ c/ce | and the program is ready for use. 


Correcting the program 


5. 


AT 


AT 


2 


go to 


If the check symbol for a particular step number is not as indicated 
in the last two columns of the program page: 

1. Press 


2 . 

3. 


followed by the step number if the appropriate step number is 
not already displayed. 

learn 

Press 


AW 


RUN 


Enter the correct keystroke. The display will then show the next 
step in the program. If this is also incorrect, enter the correct 
keystroke. At each stage, the step about to be overwritten will be 
displayed. 


4. When correction has been completed, press c /ce . Any step 


which has not been overwritten will not be affected. 
Press R 


AW 


go to 


Note 


To restore normal use of the calculator after entering or checking 


the program, press C/ C e 


Running the program 

Press the sequence of keys as shown in the program library in the 
execution sequence. Results displayed are printed in gold. 


/ 






























































POWERS 


To find x v 


Execution: 

x / RUN /y / RUN / x v x>0 

This program can be used inside parentheses 
and does not affect memory. 


In 

4 

00 

X 


01 

stop 

0 

02 

= 

— 

03 

▼ 

A 

04 

e x 

4 

05 

stop 

0 

06 

V 

A 

07 

goto 

2 

08 

0 

0 

09 

0 

0 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ROOTS 


To find the yth root of x 
Execution: 

x / RUN / y / RUN / ^/x" 


In 

4 

00 


G 

01 

stop 

0 

02 

= 

— 

03 

▼ 

A 

04 

e x 

4 

05 

stop 

0 

06 

T 

A 

07 

goto 

2 

08 

0 

0 

09 

0 

0 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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PERCENTAGE 

FUNCTIONS 


Execution: 

1. x/=/RUN/a/RUN / a%ofx 

2. / x / + / RUN / a / RUN / a% of x 

/ = / x + a% of x 

3. /x/-/RUN /a/ RUN / a% of x 

/ = / x - a% of x / 
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MEMORY FUNCTIONS 


Memory contains y initially: 

Execution: 

M+: x / RUN / + / RUN / (x in display, 
x + y in memory) 

M—: x / RUN /-/ RUN / (x in display, 
y — x in memory) 

MX: x / RUN/X/RUN /(x in display, 
xy in memory) 

M-: x / RUN/-/RUN /(x in display, 
y =■ x in memory) 

MC: x/RUN / c /ce/C/ce/ X / RUN / 

(x in display, 0 in memory) 

STO -: x / RUN /c/ce/c/ce/-/ RUN / 

(x in display, —x in memory) 

In each case, the original contents y of the 
memory are displayed after the first / RUN /. 


V 

A 

00 

MEx 

5 

01 

stop 

0 

02 

rcl 

5 

03 

= 

— 

04 

V 

A 

05 

MEx 

5 

06 

stop 

0 

07 

▼ 

A 

08 

goto 

2 

09 

0 

0 

10 

0 

0 

11 



12 

t 


13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 






















































































HOLDING AN EXTRA 
CONSTANT IN 
PROGRAM MEMORY 


Suppose there is an extra number you want to 
store while doing calculations, for example the 
velocity of light 

c= 2-997925 x 10 8 ms" 1 . 

The number can be stored in the program 
memory as shown opposite. 

Each time you need to use the constant, just 
press / RUN /. This will enter the constant and 
complete the last operation, just like the 
sequence / at / rcl / = / if the constant were 
stored in the memory. However, the memory 
can still be used to store other numbers, and 
the program will also operate inside parentheses. 

This idea can be extended to store several 
constants if required. 


# 

3 

00 

2 

2 

01 

• 

A 

02 

9 

9 

03 

9 

9 

04 

7 

7 

05 

9 

9 

06 

2 

2 

07 

5 

5 

08 

• 

A 

09 

8 

8 

10 

= 

— 

11 

stop 

0 

12 

V 

A 

13 

goto 

2 

14 

0 

0 

15 

0 

0 

16 



17 



18 



19 



20 



21 

♦ 


22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


\y 


HOLDING TWO EXTRA 
CONSTANTS IN 
PROGRAM MEMORY 


The exact way this is done depends on the way 
that the constants will be needed. 

1. One constant readily accessible, the other a 
little more difficult to recover 

To use the const. T0748321 just press / RUN / 

To use the const. 4-386579 press 
AT / AT / goto / 1 / 6 / RUN 

This program can be used inside parentheses and 
does not affect normal memory use. 


# 

3 

00 

1 

1 

01 

• 

A 

02 

0 

0 

03 

7 

7 

04 

4 

4 

05 

8 

8 

06 

3 

3 

07 

2 

2 

08 

1 

1 

09 

= 

— 

10 

stop 

0 

11 

▼ 

A 

12 

goto 

2 

13 

0 v 

0 

14 

0 

0 

15 

# 

3 

16 

4 

4 

17 


A 

18 

3 

3 

19 

8 

8 

20 

6 

6 

21 

5 

5 

22 

7 

7 

23 

9 

9 

24 

= 


25 

stop 

0 

26 

▼ 

A 

27 

goto 

2 

28 

0 

0 

29 

0 

0 

30 



31 



32 



33 



34 



35 
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HOLDING TWO EXTRA 
CONSTANTS IN 
PROGRAM MEMORY 

2. Constants wanted alternately 


Pressing / RUN / will recall constants alternately. 

To recover a constant out of turn press 
at / at / goto/0/0/RUN/for 1-0748321 
and 

AT / AT / goto / 1 / 2 / RUN / for 4-386579 

(If the second constant is wanted at the 
beginning of a calculation then / RUN / RUN / 
will work too.) 

This program can be used inside parentheses and 
does not affect normal memory use. 


# 

3 

00 

1 

1 

01 

• 

A 

02 

0 

0 

03 

7 

7 

04 

4 

4 

05 

8 

8 

06 

3 

3 

07 

2 

2 

08 

1 

1 

09 

= 

— 

10 

stop 

0 

11 

# 

3 

12 

4 

4 

13 


A 

14 

3 

3 

15 

8 

8 

16 

6 

6 

17 

5 

5 

18 

7 

7 

19 

9 

9 

20 

= 

— 

21 

stop 

0 

22 


A 

23 

goto 

2 

24 

0 

0 

25 

0 

0 

26 



27 



28 



29 



30 



31 



32 



33 J 



34 



35 
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HOLDING TWO EXTRA 
CONSTANTS IN 
PROGRAM MEMORY 

3. Either constant to be used repeatedly 


Operation: 

/ RUN / recalls first constant whenever needed 
until first recall of second constant. 

For first recall of second constant: 

AT / AT /goto / 1 / 6 / RUN / 

Subsequent / RUN / will recall second constant. 

To recall first constant again press 
at / at /goto/0/0/RUN / 


# 

3 

00 

1 

1 

01 


A 

02 

0 

0 

03 

7 

7 

04 

4 

4 

05 

8 

8 

06 

3 

3 

07 

2 

2 

08 

1 

1 

09 

= 

— 

10 

stop 

0 

11 

T 

A 

12 

goto 

2 

13 

0 

0 

14 

0 

0 

15 

# 

3 

16 

4 

4 

17 


A 

18 

3 

3 

19 

8 

8 

20 

6 

6 

21 

5 

5 

22 

7 

7 

23 

9 

9 

24 

= 

— 

25 

stop 

0 

26 

▼ 

A 

27 

goto 

2 

28 

1 

1 

29 

6 

6 

30 



31 



32 



33 



34 



36 


l!> 





















































































STORING THREE OR 
MORE CONSTANTS IN 
PROGRAM MEMORY 


As an example, three important physical 
constants which are often associated are stored 
in the program opposite, namely: 

T 0 = absolute temperature of 0°C = 273-152K 

k = Boltzmann's constant 
= 1-380622 x 10‘ 23 JK 1 


q = electronic charge = 1-6021917 x 10" 19 C 


For example, to calculate the current in a diode 
from 


I = l s exp 


qV 

kT 


where V is the applied voltage, T the junction 
temperature and l s the saturation current, use 
pre-execution: 

/ AT / AT / goto 7 0/0/ 


Execution: 

T / + / RUN / X / RUN / + / RUN/-j-/X/V/ 
= / /e x / — / 1 /X / I,/- / I 

with T in °C and V in volts. 

For repeated execution, l s could be stored in 
memory. 


# 

3 

00 

2 

2 

01 

7 

7 

02 

3 

3 

03 

• 

A 

04 

1 

1 

05 

5 

5 

06 

= 

— 

07 

stop 

0 

08 

# 

3 

09 

1 

1 

10 


A 

11 

3 

3 

12 

8 

8 

13 

0 

0 

14 

6 

6 

15 

2 

2 

16 


A 

17 

* 

A 

18 

2 

2 

19 

3 

3 

20 

= 

— 

21 

stop 

0 

22 

# 

3 

23 

1 

1 

24 


A 

25 

6 

6 

26 

0 

0 

27 

2 

2 

28 

2 

2 

29 

♦ 

A 

30 


A 

31 

1 

1 

32 

9 

9 

33 

= 

— 

34 

stop 

0 

35 
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The constants can be recalled out of order by 
using the pre-execution: 

/ at / at / goto / 0 / 9 / for k 
/ at / at / goto / 2 / 3 / for q 
or 

/ AT / AT / goto / 0 / 0 / for T 0 

This idea can be adapted to store three 9-digit 
numbers, four 6-digit numbers, five 4-digit 
numbers, etc., the decimal point counting as a 
digit. Use / = / steps to fill the remaining spaces, 
or / t / goto / 0 / 0 / etc. if there is room. 
































































LOGARITHMS 
TO BASE A 

If base is not to be kept the same 


Execution: 

a / RUN / x / RUN / log a x 


In 

4 

00 

sto 

2 

01 

stop 

0 

02 

In 

4 

03 

-r 

G 

04 

rcl 

5 

05 

= 

— 

06 

stop 

0 

07 

¥ 

A 

08 

goto 

2 

09 

0 

0 

10 

0 

0 

11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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LOGARITHMS 
TO BASE A 

If the same base is to be used repeatedly 


If the same base is to be used repeatedly 
Execution: 

a / RUN / x-, / RUN /log aXl /x 2 / RUN / 

iog a x 2 / • • • 

To set a new base: 

AT / AT / goto / 0 / 0 / a' / RUN / • • ■ etc. 


In 

4 

00 

sto 

2 

01 

stop 

0 

02 

In 

4 

03 

-r 

G 

04 

rcl 

5 

05 

= 

— 

06 

▼ 

A 

07 

goto 

2 

08 

0 

0 

09 

2 

2 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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CONVERSIONS 


Degrees Fahrenheit to degrees Centigrade 


Execution: 

°F / RUN !° C 


— 

F 

00 

# 

3 

01 

3 

3 

02 

2 

2 

03 

4- 

G 

04 

# 

3 

05 

i 

1 

06 


A 

07 

8 

8 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


CONVERSIONS 


Degrees Centigrade to degrees Fahrenheit 


Execution: 

°C/ RUN /°F 


X 

• 

00 

# 

3 

01 

1 

1 

02 

• 

A 

03 

8 

8 

04 

+ 

E 

05 

# 

3 

06 

3 

3 

07 

2 

2 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


21 

































































































CONVERSIONS 

Feet and inches to metres 


Execution: 

feet / RUN / inches / RUN / metres 
Note: 0 must be entered if 0 inches. 


X 

• 

00 

# 

3 

01 

1 

1 

02 

2 

2 

03 

+ 

E 

04 

stop 

0 

05 

X 


06 

# 

3 

07 

• 

A 

08 

0 

0 

09 

2 

2 

10 

5 

5 

11 

4 

4 

12 

= 

— 

13 

stop 

0 

14 

V 

A 

15 

goto 

2 

16 

0 

0 

17 

0 

0 

18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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CONVERSIONS 


Metres to feet and inches 


Execution: 

metres/ RUN / feet/ RUN / inches 

Note: This program may take some time to 
execute. 


-r 

G 

00 

# 

3 

01 

• 

A 

02 

3 

3 

03 

0 

0 

04 

4 

4 

05 

8 

8 

06 

— 

F 

07 

( 

6 

08 

— 

F 

09 

# 

3 

10 

1 

1 

11 

= 

— 

12 

▼ 

A 

13 

gin 

1 

14 

2 

2 

15 

1 

1 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

9 

9 

20 

+ 

E 

21 

# 

3 

22 

1 

1 

23 

= 

— 

24 

sto 

2 

25 

) 

6 

26 

= 

— 

27 

stop 

0 

28 

rcl 

5 

29 

X 


30 

# 

3 

31 

1 

1 

32 

2 

2 

33 

= 

— 

34 

stop 

0 

35 


































































































CONVERSIONS 


Pounds and ounces to kilograms 


Execution: 

lb / RUN / oz / RUN / kg 
Note: Enter 0 if 0 oz 


+ 

C 

i_ 

00 

+ 

E 

01 

+ 

E 

02 

+ 

E 

03 

+ 

E 

04 

stop 

0 

05 

4- 

G 

06 

# 

3 

07 

3 

3 

08 

5 

5 

09 

• 

A 

10 

2 

2 

11 

7 

7 

12 

4 

4 

13 

= 

— 

14 

stop 

0 

15 

V 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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CONVERSIONS 


Kilograms to pounds and ounces 


Execution: 

kg / RUN / lb / RUN / oz 


-4 

G 

00 

# 

3 

01 


A 

02 

4 

4 

03 

5 

5 

04 

3 

3 

05 

6 

6 

06 

— 

F 

07 

( 

6 

08 

— 

F 

09 

# 

3 

10 

1 

1 

11 

= 

— 

12 

V 

A 

13 

gin 

1 

14 

2 

2 

15 

1 

1 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

9 

9 

20 

+ 

E 

21 

# 

3 

22 

1 

1 

23 

= 

— 

24 

sto 

2 

25 

) 

6 

26 

= 

— 

27 

stop 

0 

28 

rcl 

5 

29 

+ 

E 

30 

+ 

E 

31 

+ 

E 

32 

+ 

E 

33 

= 

— 

34 

stop 

0 

35 


25 































































































CONVERSIONS 


Degrees, minutes, seconds to decimal degrees 
Hours, minutes, seconds to decimal hours 


Execution: 

deg / RUN / min / RUN / sec / RUN / 

decimal degrees 

or 

hr / RUN / min / RUN / sec / RUN / decimal hr 
Note: Min and sec must be entered as 0 if zero. 


+ 

E 

00 

( 

6 

01 

stop 

0 

02 

X 


03 

# 

3 

04 

6 

6 

05 

0 

0 

06 

+ 

E 

07 

stop 

0 

08 

-r 

G 

09 

# 

3 

10 

3 

3 

11 

6 

6 

12 

0 

0 

13 

0 

0 

14 

= 

— 

15 

) 

6 

16 

= 

— 

17 

stop 

0 

18 

T 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



21 



28 



29 



30 



31 



32 



33 



34 



35 
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CONVERSIONS 


Decimal degrees to degrees/minutes and seconds 
Decimal hours to hours, minutes and seconds 
Decimal minutes to minutes and seconds 


Execution: 

(i) degrees as decimal / RUN / D / RUN / RUN / 

M/ RUN /S 

(ii) hours as decimal / RUN / hours / RUN / 

RUN / mins / RUN / secs 

(iii) minutes as decimal / RUN / mins / RUN / 
secs 

The number of seconds will be shown as a 
decimal. To use the program again, just enter 
the new number of degrees, hours or minutes. 

In (i) and (ii), after the second RUN the display 
shows the number of minutes as decimal. 


— 

F 

00 

( 

6 

01 

— 

F 

02 

# 

3 

03 

1 

1 

04 

= 

— 

05 

▼ 

A 

06 

gin 

1 

07 

i 

i 

08 

4 

4 

09 

▼ 

A 

10 

goto 

2 

11 

0 

0 

12 

2 

2 

13 

+ 

E 

14 

# 

3 

15 

1 

1 

16 

= 

— 

17 

sto 

2 

18 

) 

6 

19 

= 

— 

20 

stop 

0 

21 

rcl 

5 

22 

X 

* 

23 

# 

3 

24 

6 

6 

25 

0 

0 

26 

= 

— 

27 

stop 

0 

28 

▼ 

A 

29 

goto 

2 

30 

0 

0 

31 

0 

0 

32 



33 



34 



35 
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MATCHSTICK GAME 


You put N matchsticks down on the table. At 
each turn, each player may pick up 1, 2, or 3 
matchsticks; because you choose the starting 
number N, the machine has the first turn. The 
object of the game is to avoid picking up the 
last matchstick; thus if either player leaves 
1 matchstick after his turn he has won. 

Execution: 

N / RUN / machine plays 
/ 1, 2 or 3 / RUN / you play 
/ RUN / machine plays 
/ 1, 2 or 3 / RUN / you play 

etc. 

Display each time shows number of 
matchsticks remaining. 
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PSEUDO-RANDOM 
DICE THROWER 


This dice is slightly biased, but not too 
heavily to be convincing! 

Execution: 

Choose any starting value x between 0 and 1. 
x / RUN / d, / RUN / d 2 / RUN / d 3 / etc. 
where d-,, d 2/ d 3 are successive 'throws'. 
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MOON LANDING 
GAME 


The object of the moon landing game is to land the Lunar Module 
(LEM) safely on the moon's surface. 

The LEM's rocket motor has 'bang-bang' control; in other words it 
can either be on ( burn ) or off ('coast'). Thus the landing consists of 
a series of burns and coasts of various lengths. Your job is to choose 
the lengths of these stages. You are of course limited by the amount 
of fuel on board. 

For convenience in programming, the landing is modelled by two 
programs. 

The first program models the first long burn which gets the LEM out 
of lunar orbit and slows it to a near-vertical descent above the 
landing site. 

The second program models the subsequent series of coasts and burns 
which should slow the LEM to a soft landing on the moon. 

The LEM can withstand landing speeds of up to 5 metres per second. 
Speeds above this may cause spectacularly disastrous results! 

The equations used in the programs are of course only approximate, 
but the approximations can all be justified. 
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MOON LANDING 
GAME 

Getting out of orbit 


This program computes the final speed, amount 
of fuel remaining and height after the long 
initial 'burn'. The initial mass of the LEM, M 0 is 
3000kg, including fuel mass F 0 = 2000kg. 

Orbital speed is 1-7km s' 1 in close lunar orbit at 
a height H 0 chosen by the pilot — we suggest 
25 to 50km. The rocket motor burns 2kg of fuel 
per second with an exhaust velocity of 2400m s' 1 , 
giving a thrust of 4800N. 

The final speed , height H-,, mass M-, and fuel 
left Ft are modelled by: 

Vl = Vo+ 2400ln(^I) ms' 1 



F, = F 0 — 2T kg 
M, = M 0 — 2T kg 

'Burn' time left is given by ^ 

T-i = T 0 — T s where T 0 = -f s 

Execution: 

Choose T and H 0 

/ RUN /T / RUN / FJ RUN / V, 
H 0 /-F/2/=/H 1 

Try different values of T if you wish. 

The results from this program are used as 
starting values for the vertical descent phase. 
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MOON LANDING 
GAME - 

Vertical descent 


The exact equations of motion during the 
vertical descent are modelled by linear 
approximations using the equations below: 

'Burn' 


F i+1 = F i -2T t 


V i + 1 

H i + i 
T j+i 


= Vj+ 1-6T b — 

= H, -V av T b 
= T,-T b 


4800 

M av 


T b 


'Coast' 


Fi + 1 =F; 

V( +1 = V; + 1 -6T C 
H j +1 = H | — V av T c 
T i + 1 = T | 


where M av 


M, — T = 


M, + 1 
2 


and V av = - l - 2 - V|+1 


The 'coast' equations are exact, but the 'burn' 
approximations are less accurate for 'burn' 
times longer than about 45 seconds. Either 
choose a succession of shorter 'burn' times or 
correct V i+1 and H i + 1 as below: 


V ' H1 = V 


i I 1 


H'ii, * H 


I I 1 


400T b 

Fi + 1000 

400T b 
F,+ 1000 
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Execution: 

Decide whether to 'burn' or 'coast' and for how long (T b or T c 
seconds) 

Bum: T,/-/T b /RUN/T i+1 /RUN/F i+t /RUN/V./RUN/ 

V i+1 / RUN / + / Hj/ = /H i+1 

Coast: T c / at / sto / at / at / goto / 2 / 1 / RUN / V,/ RUN / 

V i+1 / RUN / + / Hj/ = /H i+1 

Tabulate the results as below: 


Burn 

Coast 

Time T, 

Fuel F, 

Speed Vt 

Height Hi 

*700 


300 

600 

191-348 

15000 


20 

300 

600 

223-348 

10853 04 

10 


290 

580 

209-15933 

8690-504 


20 

290 

580 

241-15933 

4187-3174 

11 


279 

558 

225-10733 

1622-8508 


7 

279 

558 

236-30733 

7-8995 


You are now 7-9 metres above the moon travelling at 236 metres 
per sec. Crash!!! Better luck next time! 

* using 'getting out of orbit' program. 
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SUNDAY LETTER 
1900 - 2099 


Execution: 
year / RUN / result 

Result Sunday letter 

1 A 

2 B 

3 C 

4 D 

5 E 

6 F 

7 G 


To find Easter 1900-2099 

Use this program to find the Sunday letter and 
also find the Golden Number. 

Locate the Golden Number in the first column 
of the Table and read across to find the date of 
the Paschal Full Moon in the second column. 

Read down the third column from the day 
following the Paschal Full Moon to find the 
Sunday letter. The date opposite this letter in 
column 2 is the date of Easter Sunday. 

e.g. 1976 Golden number = 1 
Sunday letter = C 

Column 1 gives Paschal Full Moon as April 14. 
First C below April 14 is April 18. 

Therefore April 18 = Easter Sunday. 
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GOLDEN NUMBER 
1900-2099 


Execution: 

year / RUN / Golden number 


Table to find Easter 1900—2099 
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DAY OF THE WEEK OF 
CHRISTMAS DAY 
(1900 - 2099 ) 


Execution: 

year (in full) / RUN / day as a number 

where 1 = Sunday 

2 = Monday, etc 
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DISCOUNT 


Discounts a series of prices by a given 
percentage. 

Execution: 

percentage discount / RUN / gross price / 
RUN / discounted price / gross price / 

RUN / discounted price/ 

To enter a new discount : 

/ AT / goto / 0 / 0 / new discount / 
RUN / 


Example: 

I want to reduce all the prices in my shop 
by 9% for the January sale. Items cost 
£1-35, £0-76, etc. 

Enter discount [jfj | run 1 

Gross price ED QQEj [I] [RUN] 

Display shows discounted price £1-23 
Gross price H \H 0 DO 1 RUN 1 

Display shows discounted price 69p etc. 

(Results shown on display have been 
rounded to nearest penny.) 
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MARK-UP 




Marks up a series of prices by a given percentage. 
Execution: 

percentage mark-up / RUN / price / RUN / 
marked up price / another price / RUN / 

marked up price / etc. 
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MARK-UP, 

GROSS PERCENTAGE 
INCREASE GIVEN 


Marks up prices by a given percentage of their 
new value. Thus £90 marked up by 10% will 
give £100; the increase of £10 is 10% of the 
gross price £100. 

Execution: 

percentage/RUN/old price/RUN /new price/ 
another old price / RUN / new price / etc. 

To enter a new percentage: 
at / at / goto / 0 / 0 / new percentage / 
RUN / old price / etc. 
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DISCOUNT OR TAX, 
PERCENTAGE OF 
NET SUM GIVEN 


Example: 

VAT is at 8%. I price my goods VAT inclusive 
and wish to work out their net prices. 

Execution: 

percentage / RUN / gross price / RUN / 

deduction or tax / RUN / net price / another 
gross price / RUN / deduction or tax / RUN / 

net price / etc. 

To enter a new percentage: 

/ c/ce / c /ce / at / at / goto / 0 / 0 / new 
percentage / etc. 
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PERCENTAGE CHANGE 
ARISING FROM 

MARK-UP OR 
DISCOUNT CHANGE 


Example: 

VAT is cut from 25% to 12y 2 %. What percentage 
difference does this make? (By what percentage 
should prices be cut?) 

Execution: 

old mark-up / RUN / new mark-up / RUN / 

percentage change 

Enter discounts as negative mark-ups. 

Solution to example: 

Old mark-up [2] QF| | RUN | 

New mark-up pf] [2~| F~| [T[ [~RUN 1 

Percentage change = —10%, i.e. 10% decrease. 
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MORTGAGE 

REPAYMENTS 


Given: 

Amount of mortgage 
Length of mortgage 
Rate of interest 


mm nmr5i rRUN~ 

mrsI fRUN 


Finds: 

Monthly repayment 
Execution: 

rate / RUN / term / RUN / amount / RUN / 

repayment 

Example 1: 

My mortgage is for a sum of £8500 at 10%% 
over 25 years. What must I pay each month? 

Rate 
Term 

Amount ® HD HI HI 1 RUN 1 

Monthly repayment = £82-58 

Example 2: 

My mortgage has 12 years to run. The present 
balance is £4270. The rate of interest has 
just been increased to 11%. How much will my 
new monthly repayment be? 

Rate ED CD [MlI 

Term \T\ \J] 1 RUN 

Amount H GO DO 0 1 RUN 

My new monthly payment is £54-81 


Note: If you want to work out what your new 
monthly payment will be following a change of 
interest rate, and you do not know what your 
balance is, use one of the programs on page 44 
or 45 to calculate your present balance. 
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BALANCE 

OUTSTANDING ON A 
MORTGAGE 


Given: 

Amount of original mortgage 
Monthly repayment 

Number of years since mortgage was originally 
taken out 
Rate of interest 


Finds: 

Balance 


Execution: 

rate / RUN / number of years / RUN / monthly 
repayment / RUN / original amount / RUN / 

balance 


Example: 


I bought a house seven years ago and took out a 
mortgage for £5500 at 1 VA% interest. My 
monthly repayment has been £70. I now want 
to sell my house and pay off the mortgage. How 
much will I have to pay? 


Rate 

Number of years 
Monthly payment 
Original amount 


mmnrbi rRUNi 
m i run i 
m foi i run i 

r5l[5lfo| foi l RUN 1 


Balance = £3438 
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BALANCE 

OUTSTANDING ON A 
MORTGAGE 


Given: 

Monthly repayments 

Present rate of interest 

Number of years mortgage has to run 

Finds: 

Balance outstanding 

This program is useful for finding the balance 
outstanding when the interest rate and/or 
repayment has changed since the beginning of 
the mortgage, but the number of years to run 
is known. 

Execution: 

interest rate / RUN / number of years to run / 
RUN / monthly payment / RUN / balance 

Example: 

My mortgage has 12 years to run. My present 
monthly payment is £50 and the interest rate is 
10%%. What is the outstanding balance? 

Rate mroinfsl FRUNl 

Years to run Q] [T] [RUN! 

Monthly payment [|] [o] \ RUN 1 

Balance = £3990 to nearest pound. 
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MORTGAGE TERM 

Given: 

Amount of mortgage 
Monthly payment 
Rate of interest 

Finds: 

Term of mortgage in years 
Execution: 

rate / RUN / amount of mortgage / RUN / 
monthly payment / RUN / term 

Example 1: 

I wish to take out a £7000 mortgage at 11% 
interest. I can afford to repay £80 per month. 
What is the shortest term mortgage I can have? 

Rate OQ CD [run 1 

Amount of mortgage CD 0 OH HD I RUN 1 
Repayment [|] [g] [Ml 

Result is 15-52 years, so in practice I would take 
out a 15 years mortgage, with a monthly 
repayment of £81-12 (calculated using the 
program on page 43). 

Example 2: 

The balance on my mortgage is £5100 and my 
monthly repayment is £55. I have just been 
informed that the interest rate has been increased 
to 11%%. I cannot afford a higher repayment 
and so I shall have to extend the term of the 
mortgage. When will the mortgage be paid off? 

Rate GDEElCZIOEj 

Amount of mortgage 
Repayment 
Result is 19-085 

So the new term is 19 years with a small balance 
payable at the end. 
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TAX RELIEF 
ON A MORTGAGE 


G iven : 

Balance of mortgage 
Interest rate 

Finds: 

Annual tax relief (for standard rate taxpayers) 
Execution: 

balance / RUN / interest rate / RUN / 

tax relief 

Example: 

My mortgage balance is £6000 and the rate of 
interest is 10%%. How much tax will I save this 
year? 

Balance [D000 

R ate 00Q0® 

Tax relief = £225-75 

Note: This program assumes tax rate of 35p in 
the pound. Should this change, the figures in 
steps 07 and 08 should be altered to correspond. 


X 

• 

00 

stop 

0 

01 

X 

* 

02 

# 

3 

03 

• 

A 

04 

0 

0 

05 

0 

0 

06 

3 

3 

07 

5 

5 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


47 





























































































PERIOD RATE 
TO ANNUAL RATE 


(settlement discount and credit cards) 

G iven: 

I nterest rate per period 
Number of periods per year 

Finds: 

Equivalent annual rate 
Execution: 

number of periods per year / R U N / period rate / 

RUN / annual rate 

e.g. 

52 / RUN / weekly rate / RUN / annual rate 
4 / RUN / quarterly rate / RUN / annual rate 

Example: 

A car dealer makes a credit agreement with a 
customer whereby £250 will be paid off in 30 
fortnightly instalments of £10. He has used the 
program on page 54 to calculate that the 
effective fortnightly rate is 1-195%. Under the 
Consumer Credit Act, the equivalent annual 
rate must be specified. What is it? 

Number of fortnights per year j~2~| [~6~] f~R UN | 
Fortnightly rate E 0 0® QE1 1 RUN ] 
Equivalent annual rate = 36-02% 
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Settlement discount 


Example: 

I can claim a discount of 2% if I settle an account due at the end of 
the month by the 15th of the month. What annual interest rate does 
this represent? 

Solution: 

Since months are of unequal lengths, take the period to be 1/2 month 
or 1/24 year. 

Number of periods [IT] [4] 1 RUN ] 

Period rate 0 j RUN ] 

Annual rate = 60-82% (rounded to nearest -01%) 


Credit Cards 

Example: 

I must pay 0-5% per week interest on my credit card account. What 
is the equivalent annual rate? 

Number of periods 1 RUN 1 

Period rate 0 [0 ["RUN] 

Annual rate = 29-68% (rounded to nearest -01%) 

The same program may be used for calculating the period rate from 

the annual rate. Use the execution sequence: 

number of periods 1^1 RUN / annual rate / RUN / period rate 

Example: 

A bank charges 15% interest per annum. What is the equivalent 
quarterly rate? 

Number of periods per year RIPR1 RUN j 
Annual rate 0 [13 [“RUN] 

Result: Quarterly rate = 3-55% (rounded to nearest -01%) 
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DAILY RATE 
TO ANNUAL RATE 


Given: 

Daily rate 

Finds: 

Annual rate 

Execution: 

daily rate / RUN / annual rate 

Note: There is some loss of accuracy for 
daily rates of above about 0-3%. 
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ANNUAL RATE 
TO DAILY RATE 


G iven: 

Annual rate 

Finds: 

Daily rate 

Execution: 

annual rate / RUN /daily rate 

Note: There is some loss of accuracy for 
annual rates of above about 200%. 
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MONTHLY RATE 
TO ANNUAL RATE 


Given: 
Monthly rate 


Finds: 

Equivalent annual rate 


Comments: 

Compounding every month 


Execution: 

monthly rate / RUN / annual rate 


Example: 


A dealer has calculated that the monthly 
interest rate on his H.P. agreements is 1 -9%. 
Under the Consumer Credit Act he must 
display the annual rate. What is it? 


Result 25-32% 
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REGULAR 
REPAYMENT LOAN 


Term of loan 

G iven: 

Amount of loan 

Amount of regular repayment 

I nterest rate 

Finds: 

Number of repayments 
Comments: 

Interest compounded every repayment period 
Execution: 

rate / RUN / amount of loan / RUN / repayment / 

RUN / number of repayments 

Example: 

I borrow £1000 at 10% interest. I repay £250 
per year. How long will it take to pay off the 
debt? 

Rate Q] \0\ [RUN] 

Initial sum CD 03 HD 03 l~RUN~1 

Annual repayment [~2] l~5l [~0l 1 RUN~j 

Answer 5-36 years 

In practice I would make 5 payments of £250 
and then pay off the balance outstanding; this 
can be worked out using the program on page 56. 
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REGULAR 
REPAYMENT LOAN 


Interest rate 

Given: 

Amount of loan 

Amount of regular repayments 

Number of repayments 

Finds: 

Interest rate per repayment period 
Comments: 

Interest compounded each repayment period 


Formula: 



Execution: 

repayment amount / RUN / amount of loan / 
RUN / number of repayments / RUN / estimate 
of rate / RUN / number of repayments / RUN / 
estimate of rate / RUN / number of repayments/ 
RUN / 

keep repeating until two successive values of the 
estimate of the interest rate are the same; this 
value is then the required interest rate. 
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Example: 

A television shop sells a £200 television on hire purchase terms of a 
£50 deposit followed by 18 monthly instalments of £10. Under the 
Consumer Credit Act, the shop is required to specify what interest 
rate this represents. What is the effective monthly interest rate? 

Solution: 

Amount of loan is £200 — £50 = £150 
Repayment amount GD 0 fRUN] 

Amount of loan OQ [ID 03 l~RUNl 

Number of repayments CD Cl] 1 RUN | 

Estimate rate = 4 5805082 [ RUN] 

mrsl lRUNj 

Next estimate = 3 6899536 I RUNj 

Repeat until two successive estimates are the same. 

After several repetitions, reach the result of 1 -9917271%. 

Note: to obtain the equivalent annual rate, use the conversion 
program on page 52. 
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REGULAR 
REPAYMENT LOAN 


Balance outstanding just after a repayment has 
been made 

G iven: 

Amount of original loan 

Amount of regular repayment 

Number of repayments that have been made 

Rate of interest per repayment period 

Finds: 

Amount outstanding 
Comments: 

Interest compounded each repayment period 
Execution: 

rate / RUN / number of repayments / RUN / 
repayment / RUN / original amount / RUN / 

balance 

Example: 

I borrowed £500 five years ago at 9% interest. 

I have repaid £100 each year since then. What 
will the balance be after this year's payment? 

Rate [~9l t RUN I 

Number of payments [ 5 ] | RUN 1 

Payment Q] [o] [o] | RUN 1 

Original amount [U ® GD | RUN~| 

So I now owe £170-83 


4 

G 

00 

# 

3 

01 

1 

1 

02 

0 

0 

03 

0 

0 

04 

+ 

E 

05 

sto 

2 

06 

# 

3 

07 

1 

1 

08 

= 

— 

09 

In 

4 

10 

X 

• 

11 

stop 

0 

12 

= 

— 

13 

▼ 

A 

14 

e x 

4 

15 

X 

* 

16 

( 

6 

17 

stop 

0 

18 

-T 

G 

19 

rcl 

5 

20 

= 

— 

21 

sto 

2 

22 

— 

F 

23 

+ 

E 

24 

stop 

0 

25 

) 

6 

26 

4 

E 

27 

rcl 

5 

28 

= 

— 

29 

stop 

0 

30 

= 

— 

31 

= 

— 

32 

= 

— 

33 

= 

_ 

34 

= 


35 


56 


REGULAR 
REPAYMENT LOAN 


Amount of repayment 
Given: 

Amount of loan 

Number of repayment periods 

Rate of interest 

Finds: 

Necessary regular repayment 
Comments: 

Interest compounded every repayment period 
Execution: 

rate / RUN / term / RUN / amount of loan / 

RUN /regular repayment 

Example: 

I take a loan of £100 at a rate of 1% per month. 

I want to pay back the money in 36 monthly 
instalments. How much do I pay per month? 

Rate [T] [RUN | 

Term [3] [F| [rIInI 

Amount [Tj [0] [O] fRUN~l 

Regular repayment = £3-31 
(rounded to nearest penny) 
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SINGLE REPAYMENT 
LOAN 

Final amount 


Given: 

Rate of interest per accounting period 
Number of accounting periods 
Initial sum 

To find: 

Final sum 

Comments: 

Interest compounded each accounting 
period 

Execution: 

rate of interest / RUN / number of periods / 
RUN / initial sum / RUN /final sum 

Formula: 
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SINGLE REPAYMENT 
LOAN 


Final amount 

Given: 

Annual rate of interest 
Term of loan 
Initial sum 

To find: 

Final sum 

Comments: 

Interest compounded every six months 
Execution: 

rate of interest / RUN / term in years / RUN / 
initial sum / RUN / final sum 


Example: 

I invest £570 at 8% interest. How much is in my 
account after 5 years? 


Rate of interest 
Term in years 
Initial sum 
Answer £843-65 


8 RUN 


ITl l RUNl 

E0[O] [RUN] 


Formula: 
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SINGLE REPAYMENT 
LOAN 


Number of years to achieve given result 

Given: 

Initial sum 
Final sum 

Rate of interest per accounting period 
Finds: 

Number of accounting periods 
Comments: 

Interest compounded each accounting period 
Execution: 

rate / RUN / initial sum / RUN / final sum / 

RUN / term 

Example: 

How long will it take £700 to become £2000 if 
interest of 1214% is paid annually? 

Rate mmnm rRUNi 

Initial sum [~7~| [~Q~| foil RUN 1 

Final sum [Y] fo] [o] f0~j [ RUN] 

Answer 8-916 years; so the first time the balance 
will exceed £2000 will be after the ninth interest 
payment. 
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SINGLE REPAYMENT 
LOAN 

Number of years to achieve given result 


G iven: 

Initial sum 
Final sum 

Annual rate of interest 

Finds: 

Term 

Comments: 

Interest compounded every six months 
Execution : 

rate / RUN / initial sum / RUN / final sum / 
RUN / term 
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SINGLE REPAYMENT 
LOAN 

Interest rate needed for given result 


Given: 

Number of accounting periods 
Initial and final sum 

Finds: 

Effective rate of interest per accounting period 
Comments: 

Interest compounded every accounting period 
Execution: 

initial sum / RUN / final sum / RUN / term / 

RUN / rate of interest 
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SINGLE REPAYMENT 
LOAN 


Interest rate for given result 

Given: 

Term in years 
Initial and final sum 

Finds: 

Effective annual interest rate 
Comments: 

Interest compounded every six months 
Execution: 

initial sum / RUN / final sum / RUN / term / 

RUN / rate of interest 

Example: 

A bond costs £100 and is repayable in 4 years at 
£150. What rate of interest does this represent? 

Initial sum (~i~i[o1[oll RUN 1 

Final sum [T|l~0l 1 RUN | 

Term [5] S RUN | 

Equivalent interest rate = 10-38% 
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PRESENT VALUE OF 
A SINGLE 
FUTURE PAYMENT 


G iven: 

Rate of interest per accounting period 
Number of periods ahead that payment is to 
be made 

Finds: 

Present value of future payment 
Comments: 

Interest compounded every accounting period 
Execution: 

rate / RUN / term / RUN / amount / RUN / 

present value 

Formula: 
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PRESENT VALUE 
OF A SINGLE 
FUTURE PAYMENT 


Given: 

Annual rate of interest 

Number of years ahead that payment is to be 

made 

Amount of payment 


Finds: 

Present value 


Comments: 

Interest compounded every six months 
Execution: 

rate / RUN / term / RUN / amount / RUN / 

present value 


Example: 

What is the present value of a payment of £5000 
made in 4 years time at an annual rate of 14%? 


Rate 

Term 

Amount 
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[ 4 ] |~run 


f5] j0l [0l fO] [RUN 


Answer: present value = £2909-67 


Formula: 
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PRESENT VALUE OF 
A SERIES OF 
POSSIBLE UNEQUAL 
FUTURE PAYMENTS 


Given: 

Payments 

Interest rate per payment period 
Finds: 

Present value 
Execution: 

Suppose payments are made of p., at the end of 
the first year, p 2 at the end of the second year, 
and so on up to a final payment of p n at the end 
of the nth year. 

Use the following execution sequence: 
interest rate / RUN / p n / RUN / • • • / RUN / 

Pi / RUN / present value of all future payments 

Before a new calculation: 

C /CE / AT / AT / goto / 0 / 0 / 

Notice that the payments are entered in reverse 
order, with the last payment first. 

Example: 

An investor wishes to make future payments to 
a businessman as follows: 


1978 

£10,000 

1979 

£12,000 

1980 

£15,000 

1981 

£20,000 

1982 

£20,000 
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Reckoning the annual interest rate to be 14%, 
what is the value of these payments on 
1 Jan. 1977? 

Rate [U 0 fRUNl 

1982 CU BD BD BD BD fRUNl 

1981 |~2~] [Ol fOl fOl fOl l~RUNl 

1980 pH l~5l fOl fOl fOl I RUN 1 

1979 HI [21 [Ol fOl fOl fRUNl 

1978 fll [Ol fOl fOl [01 fRUN] 

Payments in reverse order 
Present value = £50,359 





























































PRESENT VALUE OF 
A SERIES OF EQUAL 
FUTURE PAYMENTS 

G iven: 

Rate of interest per payment period 
Number of payments 
Amount of each payment 

Finds: 

Present value 
Comments: 

Assumes payments start at the end of the first 
payment period 

Interest compounded each payment period 
Execution: 

rate / RUN / number of payments / RUN / 
amount of each payment / RUN / present 
value 

Example: 

Find the present value of £200,000 paid in 20 equal 
annual instalments. The rate of interest is 13% 
and the first payment is made immediately. 

Solution: 

There are 19 equal future payments of £10,000 
and one present payment. Find the present value 
of the future payments first and then add the 
present payment. 

Rate Q] [3] 1 RUNl 

Number of payments [TJ [1] j RUN 1 

Amount 00000 [MO 

Add present payment |~+~] pT] j~0] 01 fo] f~0] f=] 
So present value of all payments is £79,379 
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PRESENT VALUE OF 
A SERIES OF EQUAL 
PAYMENTS FOLLOWED 
BY A SINGLE 
PAYMENT 

(e.g. Dated government stocks) 

Given: 

Regular payment (paid at the end of each 
repayment period including the last) 

Final payment (excluding final regular payment) 

Number of repayment periods 

Discounting interest rate per repayment period 

Finds: 

Present value of future payments 
Comments: 

Notional interest compounded each repayment 
period. 

Execution: 

interest rate / RUN / no. of repayments / RUN / 
regular payment / RUN / final payment / RUN / 

present value 


Example: 

What is the present value of a government stock 
which yields £35 every half year and will be 
repaid at £1000 in 814 years time? Take interest 
rate for discounting to be 6 y 2 % per half year. 


Rate 

Number of repayments 
Regular payment 
Final payment 


[gnu] (run 
EHEtBHH 

IT! isl i~RUN 


jo] [RUN 


Present value = £677-96 
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MEAN 

AND STANDARD 
DEVIATION 


Observations x.,, ■ ■ ■ , x n 
1 

Mean x = —-Sx. 
n 

(i) Standard deviation about mean 

a=y-lz( x ,-xP 

(ii) Standard deviation about a 

-A**-* 

Execution: 

(i) RUN / x-j / RUN / x 2 / • • ■ / x n / RUN / 

AT / AT / goto / 1 / 9 / RUN * In/ 
RUN /x/ RUN la 

(ii) as (i) to *, then 

• • • Ini RUN /x/a/RUN/a a 
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MEAN, 

SUM OF SQUARES 
ABOUT MEAN, 

AND ESTIMATE OF 
VARIANCE 


1 

Mean x =—Zx, 
n 

Sum of squares about mean S xx = Sfx,— x) 2 

S„„ 


Estimate of variance s 2 = 


Pre-execution: 


n - 1 


Before each set of data is entered, clear 
memory with / c /c e / at / sto / 

Execution: 

RUN /x, / RUN / x 2 / - • • /x n / RUN / 2x 2 / 
at / at / goto / 1 / 5 / RUN / 2x/ n / RUN / 
x/ RUN / S xx / RUN7 s 2 
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LINEAR REGRESSION 
AND CORRELATION 
COEFFICIENT 


Observations (x 1f y,), • ■ •, (x n , y n ) 

Sum of cross products S xy = Zfx,- x)(yi- y) 
Correlation coefficient 
Z(X;- x)(y,~ y) 

VZiXi-xJ^lyi-y) 2 
Regression line (y on x) y = a + bx 

Method: 

First use program on page 73 applied to the x's 
and y's separately to calculate x, S xx , y and S vy . 
Then use this program as follows. 

Execution: 

x/RUN/x, / RUN/y, / RUN / x 2 / RUN / y 2 
• • • / x n / RUN / y n / AT / ) / = / AT / AT / 
goto /I / 3 / RUN / S xy / S xx / RUN / S yy / 
RUN / r / RUN /b / x/ RUN / y/ RUN / a 
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SLOPE OF 
REGRESSION LINE 


Regression line is y = a + bx 
Observations (x t , yj, (x 2 , y 2 ), ■ • • (x n , y n ) 

Execution: 

RUN / y, / RUN / x, / RUN / y 2 / RUN / x 2 / 
RUN / • • • / x n / RUN / Sxy (note) / c £e / at / 
AT / MEx / Zy (note) / at / ( / x, / RUN / 
RUN /x 2 /RUN/ RUN / • ■ • / x n / RUN / at / 
) / + / at / at / goto / 1 / 6 / RUN / n / 

RUN / Zy / RUN/Zxy/RUN / b 

/Vote: The values of Zxy and Zy must be 
written down and re-entered later in the 
execution sequence. 
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TESTING THE 
HYPOTHESIS OF ZERO 
CORRELATION 


Assuming normality, on the hypothesis that 
p = 0, the statistic 

VN -2 

t= r 

Vi - r 2 

has the t distribution with (N — 2) degrees of 
freedom. Large values of t indicate that the 
true correlation coefficient is non-zero. 

Execution: 

r/ RUN / N / RUN /t 
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REGRESSION LINE 
SLOPE 

To test whether it is significantly different from 
zero or any other given value b 0 


Slope of regression line = b 
Correlation coefficient = r 
Sample size = N 

Calculate the statistic 
(b — b 0 ) VN -2 

On the null hypothesis that the true value of b 
is b 0 , this has the t-distribution with (N — 2) 
degrees of freedom (approximately standard 
normal if N is reasonably large). 

Execution: 

b„/ RUN /b / RUN / r/ RUN / N / RUN /t 

If b 0 is zero the following can be used: 
b/ RUN / RUN / r / RUN /N / RUN /t 
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STUDENT'S t-TEST 


t _ xVn~ 

s 

To test whether the mean of a set of observations 
x i» ' ‘ » x n differs significantly from zero. Large 
values of t reject the hypothesis that the mean is 
zero. 

Pre-execution: 

Clear memory with c /ce / at / sto / 

Execution: 

RUN / x, / RUN / x 2 / ■ • • / x n / RUN / at / 
at / goto / 1 / 5 / RUN / n / RUN / n / RUN /t 

To re-use: 

C/CE / at / sto / at / AT / goto / 0 / 0 / 
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STUDENT'S t-TEST 


To test whether the mean is significantly 
different from some value a: 

t = ( x ~ a ) 
s 

Pre-execution (before each set of data): 

/ AT / AT / goto / 0 / 0 / C /CE / C/CE / AT / StO / 

Execution: 

RUN /x, / RUN / x 2 /- • • /x n / RUN / at / 
at / goto / 1 / 5 / RUN/n/RUN/n/RUN/ 
n — 1/RUN/a/RUN/=/t 
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CHI-SQUARED 


Observed values O,, • • • , O n 
Expected values E,, • • •, E n 

*~i 

Execution: 

RUN / O, / RUN / E, / RUN / 0 2 / RUN / E 2 / 
1 ■ • /O n / RUN / E n /RUN/x 2 

For new data: 

Clear with c /c e / c /ce / aw / a t / goto 7 0/0/ 
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CHI-SQUARED WITH 
YATES CORRECTION 


(e.g. for small contingency tables) 

2 = V <10,-E,| - y 2 ) 2 

X E, 


Execution: 

RUN /Ot / RUN / E 1 / RUN /0 2 / RUN / E 2 / 
• • • /O n / RUN / EJ RUN /X 2 
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TWO SAMPLE 
CHI-SQUARED 


Pre-execution: 

Clear memory with c /ce / at / sto / 
Execution: 

0, / RUN / O', / RUN / 0, / RUN / 0 2 / RUN / 
0' 2 / RUN / 0 2 / • ■ • / O n / RUN / O; / RUN / 
O n / RUN /X 2 
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0 

16 

w 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 
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25 
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33 



34 



35 


82 


TWO SAMPLE 
CHI-SQUARED WITH 
YATES CORRECTION 



(10,-Oil - I) 2 

o,+ o; 


Execution: 

O, / RUN / O', / RUN / O, / RUN / 0 2 / RUN / 

0 2 / RUN/0 2 / ■ • •/O n / RUN/O;/RUN /O n / 
RUN /X 2 

Caution: 

If for any j, Oj = O' = 0, do not enter either of 
them but go straight on to O j + 1 . In any case it 
is not very sound statistically to use the x 2 if 
any of the (Oj+ Of) are less than about 10. 


+ 

E 

00 

stop 

0 

01 

-r 

G 

02 

X 

* 

03 

( 

6 

04 

+ 

E 

05 

~ 

G 

06 

~ 

F 

07 

stop 

0 

08 

+ 

E 

09 

X 

• 

10 

= 


11 


1 

12 


F 

13 

# 

3 

14 

1 

1 

15 

X 


16 

) 

6 

17 

4- 

E 

18 

rcl 

5 

19 

= 

— 

20 

sto 

2 

21 

stop 

0 

22 

▼ 

A 

23 

goto 

2 

24 

0 

0 

25 

0 

0 

26 



27 
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CONTINGENCY 
TABLE: x 2 -TEST FOR 
INDEPENDENCE 


Given a contingency table with h rows and k columns, and 
observation 0^ at the intersection of the ith row and the jth 
column, it is often of interest to test whether the 'row effect' and 
'column effect' are independent. To do this, proceed as follows: 


1. Work out the row totals R i( the column totals Cj and the grand 
total N. 


2. Use the program opposite to calculate the expected values E u 
for each celi in the table. 


3. 


Use one of the one-sample x 2 programs above to work out the x 2 
statistic defined by 


z < °~ E)2 


or 


2 (IQ-EI-Va) 2 


Make sure that the observed and expected values are entered for 
every ceil of the table. Use the Yates corrected version if the table is 
small. The number of degrees of freedom is (h — 1 )(k — 1). If this is 
fairly large the resulting statistic may be transformed to have a 
standard normal distribution on the hypothesis of independence by 
using the transformation program on page 93. 


CALCULATING THE 
EXPECTED VALUES 
IN A CONTINGENCY 
TABLE 


Execution: 

N / RUN / R,/RUN / C, / RUN / E„ / RUN / 
RUN / C 2 / RUN / E 12 / - ■ ■ / E 1k / RUN / R 2 / 
RUN / C, / RUN / E 2 i / • • ■ etc. 

The current row total is displayed between the 
two successive / RUN / steps after each result is 
displayed. It should be altered at this point when 
moving on from one row to the next. 


sto 

2 

00 

stop 

0 

01 

+ 

E 

02 

( 

6 

03 

X 

• 

04 

stop 

0 

05 

4- 

G 

06 

rcl 

5 

07 

= 

— 

08 

* stop 

0 

09 

# 

3 

10 

0 

0 

11 

= 

— 

12 

) 

6 

13 

= 

— 

14 

V 

A 

15 

goto 

2 

16 

0 

0 

17 

. 1 

1 

18 



19 



20 



21 



22 



23 



24 



25 
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27 
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Z STATISTIC 


For testing whether a proportion is 
significantly different from d. The statistic Z 
has mean 0 and variance 1 and is approximately 
normally distributed. 




n 


0(1 -9) 
n 


Execution: 

d / RUN/n/RUN/x/RUN / z 


sto 

2 

00 

— 

F 

01 

( 

6 

02 

X 


03 

) 

6 

04 

= 

~ 

05 

I Vx 

1 

06 

-r 

G 

07 

X 


08 

( 

6 

09 

rcl 

5 

10 

X 

* 

11 

stop 

0 

12 

sto 

2 

13 

— 

F 

14 

stop 

0 

15 

— 

F 

16 

) 

6 

17 

4- 

G 

18 

( 

6 

19 

rcl 

5 

20 


1 

21 

) 

6 

22 

= 

— 

23 

stop 

0 

24 

▼ 

A 

25 

goto 

2 

26 

0 

0 

27 

0 

0 

28 
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35 


86 


NON-PARAMETRIC 

STATISTICS 

Spearman's rank correlation coefficient 


Pairs of ranks 

(ri,Si), (r 2 , s 2 ), ■ ■ ■ , (r n , s n ) 

Execution: 

n / RUN / r, / RUN / s-, / RUN /■■•./ r n / RUN / 
s n / RUN Ip 


sto 

2 

00 

X 

• 

01 

X 

• 

02 

rcl 

5 

03 

— 

F 

04 

rcl 

5 

05 

— 

F 

06 

-r 

G 

07 

# 

3 

08 

6 

6 

09 

= 

— 

10 

sto 

2 

11 

# 

3 

12 

1 

1 

13 

+ 

E 

14 

( 

6 

15 

stop 

0 

16 

— 

F 

17 

stop 

0 

18 

X 

• 

19 

4- 

G 

20 

rcl 

5 

21 

> 

6 

22 

▼ 

A 

23 

goto 

2 

24 

1 

1 

25 

4 

4 
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29 
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QUALITY CONTROL 


Action and warning limits for proportion of 
batch having given attribute. 

, _ , /p(1 - p) 

a±-p±aj—- - 

Typical values of a: 

For action limits a = 3-12 
For warning limits a - 1-96 

Execution: 

p/ RUN Ini RUN /a I RUN / a-/ RUN / a+ 


sto 

2 

00 

— 

F 

01 

( 

6 

02 

X 


03 

) 

6 

04 

-T ■ 

G 

05 

stop 

0 

06 

= 

— 

07 


1 

08 

X 


09 

stop 

0 

10 

= 

— 

11 

T 

A 

12 

MEx 

5 

13 

— 

F 

14 

rcl 

5 

15 

+ 

E 

16 

stop 

0 

17 

rcl 

5 

18 

+ 

E 

19 

rcl 

5 

20 

= 

— 

21 

stop 

0 

22 

▼ 

A 

23 

goto 

2 

24 

0 

0 

25 

0 

0 

26 



27 



28 



29 
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31 



32 
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NORMAL DENSITY 
FUNCTION 


1 j (x-n) 2 \ 

^ ~ o^/2n 6XP I _ 2a 2 S 

Execution: 

x/ RUN I \xi RUN /a/ RUN /0 


— 

F 

00 

stop 

0 

01 

Hr 

G 

02 

stop 

0 

03 

sto 

2 

04 

X 

• 

05 

— 

F 

06 

= 

— 

07 


A 

08 

e x 

4 

09 

4* 

G 

10 

# 

3 

11 

6 

6 

12 


A 

13 

2 

2 

14 

8 

8 

15 

3 

3 

16 

1 

1 

17 

9 

9 

18 

= 

— 

19 


1 

20 

-T 

G 

21 

rcl 

5 

22 

= 

— 

23 

stop 

0 

24 

▼ 

A 

25 

goto 

2 

26 

0 

0 

27 

0 

0 
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PERCENTAGE POINTS 
OF THE NORMAL 
DISTRIBUTION 


Given any a with 0 < a < 0-5, finds x to within 
about 2 sig. fig. so that the probability that a 
standard normal random variable exceeds x is a. 

Execution: 

a/ RUN /x 

For greater accuracy (-1% error) divide result 
by 1-006. 

For still greater accuracy use execution sequence 
a! X/ 1-0007/ RUN /*/ 1-006/= /x 


X 

• 

00 

-r 

G 

01 

= ■ 


02 

In 

4 

03 


1 

04 

sto 

2 

05 

+ 

E 

06 

+ 

E 

07 

+ 

E 

08 

# 

3 

09 

1 

1 

10 

2 

2 

11 

• 

A 

12 

5 

5 

13 

~r 

G 

14 

( 

6 

15 

rcl 

5 

16 

+ 

E 

17 

# 

3 

18 

7 

7 

19 

X 

* 

20 

rcl 

5 

21 

+ 

E 

22 

# 

3 

23 

5 

5 

24 

= 

~ 

25 

) 

6 

26 

— 

F 

27 

+ 

E 

28 

rcl 

5 

29 

— 

— 

30 

stop 

0 

31 

v 

A 

32 

goto 

2 

33 

0 

0 

34 

0 
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POISSON 

DISTRIBUTION 


Suppose a random variable has the Poisson 
distribution with parameter X. What is the 
probability that the random variable takes the 
value j? 


Formula: 


prob (j) = 


e~ x A' 

j! 


Execution: 

X/ RUN / j / RUN /answer- 

Note: Long execution times are possible for 
large values of j. 


— 

F 

00 

( 

6 

01 

In 

4 

02 

X 


03 

stop 

0 

04 

sto 

2 

05 

) 

6 

06 

— 

F 

07 

— 

F 

08 

( 

6 

09 

rcl 

5 

10 

— 

F 

11 

# 

3 

12 

i 

1 

13 i 

+ 

E 

14 

▼ 

A 

15 

gin 

1 

16 

2 

2 

17 

9 

9 

18 

sto 

2 

19 

# 

3 

20 

1 

1 

21 

= 

— 

22 

In 

4 

23 

) 

6 

24 

▼ 

A 

25 

goto 

2 

26 

0 

0 

27 

8 

8 

28 

= 

— 

29 

rcl 

5 

30 

) 

6 

31 

= 


32 

▼ 

A 

33 

e* 

4 

34 
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0 
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FISHER'S Z 
TRANSFORMATION 
FOR CORRELATION 
COEFFICIENTS. 


z =y llog (l±£ 

The distribution of z is approximately normal. 
Execution: 

p/RUN / z/ n /RUN / a 

where n is the sample size and a is the 
standard deviation of z. 

1 

o= -== 

•v/n-3 



— 

F 

00 

# 

3 

01 

1 

1 

02 

-r 

G 

03 

+ 

E 

04 

+ 

E 

05 

# 

3 

06 

1 

1 

07 

— 

F 

08 

= 

— 

09 

V*. 

1 

10 

In 

4 

11 

stop 

0 

12 

— 

F 

13 

# 

3 

14 

3 

3 

15 


G 

16 

= 

— 

17 


1 

18 

stop 

0 

19 

▼ 

A 

20 

goto 

2 
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0 

22 

0 

0 
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TRANSFORMING x 2 
TO NORMAL 


Suppose x has the x 2 distribution with n degrees 
of freedom, where n is fairly large (say n > 20). 

Then y = ■>/2x 2 —>/2n — 1 has approximately 
a standard normal distribution with mean 0 and 
variance 1. 

Execution: 

x / RUN / n / RUN /y 


X 

• 

00 

+ 

E 

01 
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— 

02 


1 

03 

— 

F 

04 

( 

6 

05 

stop 

0 

06 

+ 

E 

07 


F 

08 

# 

3 

09 

1 

1 

10 

= 

- 

11 


1 

12 

) 

6 

13 

= 

— 

14 

stop 

0 

15 

v 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 
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21 
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TRANSFORMING 
BINOMIAL 
TO NORMAL 


Suppose x is binomially distributed with 
parameters n and p. Then 



P) 


has very nearly a standard normal distribution 
provided np and n( 1 - p) are both greater than 
5. 

Execution: 

p/RUN/n/RUN/x/RUN/z 


sto 

2 

00 

— 

F 

01 

( 

6 

02 

X 

* 

03 

) 

6 

04 

= 

— 

05 


1 

06 

-r 

G 

07 

X 

• 

08 

( 

6 

09 

rcl 

5 

10 

X 

• 

11 

stop 

0 

12 

sto 

2 

13 

— 

F 

14 

stop 

0 

15 

— 

F 

16 

) 

6 

17 

— 

G 

18 

( 

6 

19 

rcl 

5 

20 


1 

21 

) 

6 

22 

= 

— 

23 
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0 

24 

▼ 

A 

25 

goto 

2 
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How to use these programs 

Each program is arranged as follows: 

1. On the left of the page, explanatory information and the 
'execution sequence', the sequence of keystrokes necessary for 
running the program. Results displayed are printed in gold. 

2. In the first column on the right hand side of the page, the 
sequence of keystrokes which make up the program. 

3. In the second and third columns on the right hand side of the 
page, the program in check symbol and step number form 
(see section on checking the program). 


Notes 

1. Where a key has more than one function, the relevant function is 
printed as the keystroke in the first column 

COS 


e.g. the keystroke 8 may appear as 8, cos or arccos. 


*/EE/- 


2. The symbol ▼ within a program always refers to the key 

ChN / # 

3. The symbol # refers to [T 

4. The abbreviation gin is 'go if neg' and so refers to the key [T] 


go if neg 


Entering the program 


To enter a program into the calculator: 

1. Press [a*] [ay| |T| |ol fo] Display shows step programmed 

at 00 in check symbol form as 
described below. 


go to 


2 . 

3. 


4. 


Press 


AY 


learn 

RUN 


Press the sequence of keys for 
the program as shown in the 
first column of the program 
page. 


Press 


C/CE 


No change in display. 

At each stage the step about to 
be overwritten is displayed. 
When the machine is first 
switched on every step is zero. 

Normal number display is 
resumed. 


5. 


Press 


AT 



HI H 

go to 



The step programmed at 00 will 
be displayed. 


6 


Checking the program 


Each of the programs in the library is shown in check symbol form in 
the second column on the right-hand side of the page. 

step 


Press 


AY 


C/CE 


repeatedly, and at each stage the check symbol will 


appear on the left of the display with the step number on the right. 
Ignore the four zeros in the display. 


e.g. A.0000 03 

check step 

symbol number 

After stepping through the program, press 

before execution. 


AT 


AY 


0 


go to 


Finally, press c/c E and the program is ready for use. 


Correcting the program 


4. 


5. 






2 


go to 


If the check symbol for a particular step number is not as indicated 
in the last two columns of the program page: 

1. Press 


2 . 

3. 


followed by the step number if the appropriate step number is 
not already displayed. 

learn 

Press 


AY 


RUN 


Enter the correct keystroke. The display will then show the next 
step in the program. If this is also incorrect, enter the correct 
keystroke. At each stage, the step about to be overwritten will be 
displayed. 

When correction has been completed, press 


C/CE 


. Any step 


which has not been overwritten will not be affected. 
Press 


AY 


AY 


go to 


Note 

To restore normal u se of the calculator after entering or checking 


the program, press C/ C e 


Running the program 

Press the sequence of keys as shown in the program library in the 
execution sequence. Results displayed are printed in gold. 






















































































EXTENSION OF 
RANGE OF 
TRIGONOMETRIC 
FUNCTIONS 


tO — 7T < 8 < IT 

Sine of any angle: 

2t Q 

sin 8 = - -, where t = tan — 

1 +t 2 2 

Execution: 

8 /RUN / 

For 8 in degrees, insert / ▼ / D-*R / at start of 
program. 



G 

00 

# 

3 

01 

2 

2 

02 

= 

— 

03 

tan 

9 

04 


G 

05 

( 

6 

06 

X 


07 

+ 

E 

08 

# 

3 

09 

1 

1 

10 

= 

— 

11 

) 

6 

12 

+ 

E 

13 

= 

— 

14 

stop 

0 

15 

▼ 

A 

16 

goto 
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17 

0 
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18 
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EXTENSION OF 
RANGE OF 
TRIGONOMETRIC 
FUNCTIONS 


tO —7T < 8 < IT 


Cosine of any angle 

1 |2 Q 

cos 8 = ——5- where t = tan — 
1 +t 2 2 

Execution: 

8 /RUN / 


-r 

G 

00 

# 

3 

01 

2 

i .- - - j 

2 

02 


— 

03 
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stop 
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goto 
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EXTENSION OF 
RANGE OF 
TRIGONOMETRIC 
FUNCTIONS 


tO — 7T < 0 < 7T 

Tangent of any angle 

2t 0 

tan 0 = --r where t = tan — 

1 - 1 2 2 

Execution: 

0 / RUN / :an 0 


-r 

G 

00 

# 

3 

01 

2 

2 

02 

= 

— 

03 

tan 

9 
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) 
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13 

= 
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stop 
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goto 
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EXTENSION OF 
RANGE OF 
TRIGONOMETRIC 

FUNCTIONS 


to — ir < 0 < 7r 


sin, cos and tan using t = tan — 

Execution: 

0/RUN/ / RUN /cos 0/ RUN /tan 0 


-r 

G 

00 

# 

3 

01 

2 

2 

02 

= 

— 

03 

tan 

9 

04 

sto 

2 

05 

X 


06 

+ 
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07 

# 

3 

08 

1 

1 

09 


G 

10 

= 

— 

11 

V 

A 

12 

MEx 

5 

13 

X 

* 

14 

rcl 

5 

15 

+ 

E 

16 

= 

— 

17 

stop 

0 

18 

▼ 

A 

19 

MEx 

5 

20 

+ 

E 

21 

— 

F 

22 

# 

3 

23 

1 

1 

24 


G 

25 

stop 

0 

26 

X 

* 

27 

rcl 

5 

28 

= 

— 

29 

stop 

0 

30 
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A 

31 

goto 
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SINE AND COSINE 
OF ANY ANGLE 


Sin: use program on right 
Execution: 

angle in degrees / RUN / 

For radians version of program, insert 
/ ▼/ R-»D / at beginning and omit 1 = 1 = 1 at end. 

Cos: either use program on right and execute by 
/ at / at / goto / 0 / 4 / angle in degrees / 

RUN / 

or omit first four keystrokes of program 
on right and fill the empty spaces at the 
end with repeated 1=1 and execute by 

angle in degrees / RUN / 

For radians version of program, insert / ▼ / R-*D / 
at the beginning. 

Note: E can appear if reduced angles > 1-57 
radians. 


— 

F 

.00 

# 

3 

01 

9 

9 

02 

0 

0 

03 

X 

• 

04 

= 

— 

05 

Vx: 

1 

06 

- F 

07 

+ 

E 

08 

09 

# 

3 

3 

3 

10 

6 

6 

11 

0 

0 

12 

• _ 

F 

13 

▼ 

A 

14 

gin 

1 

15 

0 

1- | 

0 

16 

7 

7 

17 

# 

3 

18 

1 • 

1 

19 

8 

8 

20 

0 

0 

21 

X 

• 

22 

= 


23 


1 

24 


F 

25 

# 

3 

26 

9 

9 

27 

0 

0 

28 

= 

— 

29 

7 

A 

30 

D->R 

3 

31 

sin 

7 

32 

stop 

0 

33 


— 

34 


— 

35 


12 


TANGENT OF ANY 
ANGLE 


Execution: 

angle in degrees / RUN / 


Note: E can appear if reduced angle > 1-57 
radians. 


+ 

E 

00 

# 

3 

01 

9 

9 

02 

0 

0 

03 

-T 

G 

04 

( 

6 

05 

X 

• 

06 

= 

— 

07 


1 

08 

sto 2 

09 

) 6 

10 

— 

F 

11 

X 

• 

12 

( 

6 

13 

rcl 

5 

14 

— 

F 

15 

+ 

E 

16 

# 

3 

17 

1 

1 

18 

8 

8 

19 

0 

0 

20 


F 

21 

▼ 

A 

22 

gin 

1 

23 

i 

1 

24 

5 

5 

25 

# 

3 

26 

9 

9 

27 

0 

0 

28 

= 

— 

N> 

CD 

1_1 

T A 

30 

D^R 3 

31 

tan 9 

32 

) 6 

33 

= — 

34 

stop 0 

35 
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HYPERBOLIC 

FUNCTIONS 


If all the hyperbolic functions are likely to be 
required, use the 'gudermannian' program on 
page 21 . For the individual functions, the 
following can be used: 

Sinh x 

Execution: 
x / RUN/ h x 

Range: 

-227-95 < x < 230-25 

(out-of-range may give wrong result without E) 


▼ 

A 

00 

e x 

4 

01 

_ 

F 

02 

< 

6 

03 

4- 

G 

04 

) 

6 

05 

4- 

G 

06 

# 

3 

07 

2 

2 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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HYPERBOLIC 

FUNCTIONS 


Cosh x 

Execution: 
x / RUN /cosh x 

Range: 

-227-95 < x < 230-25 

(out-of-range may give wrong result without E) 


▼ 

A 

00 

e x 

4 

01 

+ 

E 

02 

< 

6 

03 

4- 

G 

04 

) 

6 

05 

4- 

G 

06 

# 

3 

07 

2 

2 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 

— 


32 

33 

34 



35 


15 





















































































Tanh x 

Execution: 
x/RUN / 

Range: 

|x|< 113-97 

(out-of-range may give wrong result without E) 


+ 

E 

00 

= 

— 

01 

V 

A 

02 

e x 

4 

03 

+ 

E 

04 

# 

3 

05 

1 

1 

06 

-f 

G 

07 

+ 

E 

08 

— 

F 

09 

# 

3 

10 

1 

1 

11 

. — 

F 

12 

= 

; — 

13 

stop 

0 

14 

T 

A 

15 

goto 

2 

16 

0 

0 

17 

0 

0 

18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 

35 


16 


▼ A 

e x 4 

+ E 
( 6 
V G 
) 6 
- G 
+ E 

stop 0 
v A 
goto 2 
0 0 
0 0 

Sech x 

Execution: 

x/RUN/ 

Range: 
jx| < 227-95 


00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

17 











HYPERBOLIC 

FUNCTIONS 


Cosech x 

Execution: 
x/RUN / 

Range: 

10017 x 10' 4 < |x| < 227-95 

(|x| > 227-95 may give wrong result without E) 


▼ 

A 

00 

e x 

4 

01 

— 

F 

02 

< 

6 

03 

-r 

G 

04 

) 

6 

05 

-r 

G 

06 

+ 

E 

07 

= 

— 

08 

stop 

0 

09 

V 

A 

10 

goto 

2 

11 

0 

0 

12 

0 

0 

13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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HYPERBOLIC 

FUNCTIONS 


Coth x 

Execution: 
x/RUN / 

Range: 

10016 x 10~ 4 <|x|< 113-97 

(out-of-range may give wrong result without E) 


+ 

E 

00 

= 

— 

01 

V 

A 

02 

e x 

4 

03 

— 

F 

04 

# 

3 

05 

i 

1 

06 


G 

07 

+ 

E 

08 

+ 

E 

09 

# 

3 

10 

i 

1 

11 

= 

— 

12 

stop 

0 

13 

V 

A 

14 

goto 

2 

15 

0 

0 

16 

0 

0 

17 



18 



19 


i 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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HYPERBOLIC 

FUNCTIONS 

All the hyperbolic functions 


Execution: 

x/RUN/ /RUN/ /RUN/ 

/RUN/ /RUN/ /RUN/ 

/ 

Range: 

10017 x 10“ 4 < |x| < 7-8566 


T 

A 

00 

e x 

4 

01 

+ 

E 

02 

# 

3 

03 

i 

1 

04 

•f 

G 

05 

+ 

E 

06 

— 

F 

07 

# 

3 

08 

i 

1 

09 

— 

F 

10 

z 

V 

— 

11 

A 

12 

arc tan 

9 

13 

+ 

E 

14 

= 

— 

15 

sto 

2 

16 

tan 

9 

17 

stop 

0 

18 

-r 

G 

19 

= 


20 

stop 

0 

21 

rcl 

5 

22 

cos 

8 

23 

■f 

G 

24 

= 

— 

25 

stop 

0 

26 

-r 

G 

27 

= 

— 

28 

stop 

0 

29 

1 

rcl 

5 

30 

sin 

7 

31 

stop 

0 

32 

- 

G 

33 

= 

— 

34 

stop 

0 

35 
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HYPERBOLIC 

FUNCTIONS 

V 

A 

00 

e x 

4 

01 

+ 

E 

02 

The gudermannian program 

# 

1 

3 

1 

03 

04 

Enables all the hyperbolic functions to be 


G 

05 

calculated with suitable execution sequences. 

+ 

E 

06 

— 

F 

07 

Formulae: 

# 

3 

08 

x 

1 

1 

09 

gdx = 2 arctan tanh— 

— 

F 

10 

sinh x = tan gdx 

= 

— 

11 

w 

A 

12 

cosech x = cot gd x 

arctan 

9 

13 

cosh x = sec gd x 

+ 

E 

14 

= 

— 

15 

sech x = cos gd x 

stop 

0 

16 

tanh x = sin gdx 

T 

A 

17 

goto 

2 

18 

coth x = cosec gdx 

0 

0 

19 


0 

0 

20 

Execution: 


21 

x/RUN/ / at / sin / /-F/ = / 



22 

x/RUN/ / at /cos/ /■=•/ = / 



23 

x/RUN/ / at /tan/ /+/-/ 



24 



25 

This program can be used inside parentheses and 



26 

does not affect memory. 



27 

Accuracy is less than that of individual 



28 

hyperbolic function programs. 



29 

Range: 



30 



31 

|x| < 227-95 for gdx 


32 

|x| < 7-8566 for hyperbolic functions 



33 




34 




35 


21 




















































INVERSE HYPERBOLIC 
FUNCTIONS 


All the inverse hyperbolic functions can be 
obtained from the following program. 

Execution: 

AT / AT / goto / 1 / 2 / x / RUN* / 
or 

x/RUN / /RUN/ 

or 

AT / AT / goto / 2 / 0 / x / RUN / 
or 

at / at / goto / 1 131x1 RUN* / 
or 

at / at / goto / 0 / 1 / x / RUN / / 

RUN / 
or 

AT / AT / goto / 1 / 9 / x / RUN / 


* For negative x press / RUN / a second time 
when evaluating sinh' 1 x and cosech' 1 x to get 
the correct answer. 

Range: 

sinh' 1 x 10' 49 < |x| <577-35 
cosh’x 1<x< 3162-2 No E if x —ve 
tanh' 1 x -0-99999 < x < 0-99999 
cosech' 1 x 0-001732 <|x|<10 49 

sech' 1 x 3-162278 x 10 4 <x < 1 
No E if x —ve 

coth" 1 x 1-0001 < |x | < 10" 


-r 

G 

00 

X 

. 

01 

— 

F 

02 

+ 

E 

03 

# 

3 

04 

i 

1 

05 

= 

— 

06 

Vx- 

1 

07 

Y 

A 

08 

goto 

2 

09 

2 

2 

10 

0 

0 

11 

~ 

G 

12 

X 


13 

+ 

E 

14 

# 

3 

15 

1 

1 1 16 

= 

— 

17 


1 

18 

■f 

G 

19 

— 

F 

20 

+ 

E 

21 

# 

3 

22 

1 

1 

23 

~ 

G 

24 

+ 

E 

25 

— 

F 

26 

# 

3 

27 

1 

1 

28 

= 

— 

29 

V*" 

1 

30 

In 

4 

31 

stop 

0 

32 

— 

F 

33 

= 

— 

34 

stop 

0 

35 
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MODULO ARITHMETIC 
('Clock Arithmetic') 


Base 7 is used as an example. 

The program completes a calculation and works 
out the remainder when the result is divided 
by 7. Neither the brackets nor the memory are 
used, so that the operation of / RUN / is 
exactly that of / = / . 

For other bases, insert the base at steps 03, 11 
and 14. Change the address at steps 18 and 19 
to 14 if a two digit base is used, 16 for a three 
digit base, etc. 

Execution may take a long time if very large 
numbers are involved. 

Example: 

/ 3 / X / 5 / RUN / / + / 8 / RUN / / etc. 


— 

-r 

F 

00 

+ 

E 

01 

# 

3 

02 

7 

7 

03 

— 

F 

04 

▼ 

A 05 

gin 

1 

06 

0 

0 

07 

0 

0 

08 

— 

F 

09 

# 

3 

10 

7 

7 

11 

+ 

E 

12 

# 

3 

13 

7 

7 

14 

= 

— 

15 

Y 

A 

16 

gin 

1 

17 

i 

1 

18 

2 

2 

19 

stop 

0 

20 

▼ 

A 

21 

goto 

2 

22 

0 

0 

23 

0 

0 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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To find the prime factors of a number N. 
Pre-execution: 

2 / AT / StO / AT / AT / goto / 0 / 0 / C /CE / 
Execution: 

N/RUN/ /RUN/ /RUN/ /RUN/ 
/•••/ /RUN/ 


where 

3i»«> 2 * a 3 , • • • a r are the prime factors of N 
and 

N-,, N 2 , • • • are the residues defined by 


M N 

Nl= V' 

a i 


N, = ■ 


N 


a, a 


No = 


N 


1 a 2 


9 1 a 2 a 3 


, etc. 


Pressing / RUN / after 1 has been displayed will 
cause the machine to go into an infinite loop. 

Warning: Long execution times are possible for 
large values of N or for numbers with large 
prime factors. 


-r. 

G 

00 

( 

6 

01 

— 

Ml 

02 

+ 

E 

03 

rcl 

5 

04 

— 

F 

05 

▼ 

A 

06 

gin 

1 

07 

0 

0 

08 

2 

2 

09 

= 

; — 

10 

T 

A 

11 

gin 

1 

12 

2 

2 

13 

4 

4 

14 

rcl 

5 

15 

stop 

0 

16 

) 

6 

17 

= 

| — 

18 

stop 

0 19 

T 

A 

20 

goto 

2 

21 

0 

0 

22 

0 

0 

23 

rcl 

5 

24 

+ 

E 

25 

# 

3 

26 

1 

1 

27 

= 

— 

28 

sto 

2 

29 

# 

3 

30 

1 

1 

31 

i_L 

— 

32 

) 

6 

33 

_ Z _ 

— 

34 

i 

~ 

35 


24 



sto 

2 


stop 

0 


T 

A 


MEx 

5 


+ 

E 


( 

6 



F 


+ 

E 


rcl 

5 


— 

F 


▼ 

A 

To find whether a number n is prime, choose 

gin 

1 

any integer m 

0 

0 

Then use the execution sequence: 

6 

6 

= 

— I 

n/RUN / m / RUN/ 

▼ 

A 

The result will be the largest number less than 

gin 

1 

2 

o 

or equal to m which divides n. If the result is 1 

4 


1 

pr) 

then n is prime. 

rcl 

5 

To test another number, pre-execute with: 

stop 

0 

/at / at / goto / 0 / 0 / 

rcl 

5 

— 

F 

Note: Long execution times are possible for 

# 

3 

large numbers. 

1 

1 


= 

— 


sto 

2 


# 

3 


0 

0 


= 

— 


) 

6 


T 

A 


goto 

2 


0 

0 


4 

4 





00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


25 
























FACTORIALS 


Execution: 
n/RUN / 

Restriction: 

1 < n < 69 

Note: The program may be used within 
brackets. It does, however, use the memory. 
Thus, to calculate 

15! 

6! 10! 

a possible execution sequence is: 

15 / RUN /-S-/ at / ( / 10 / RUN / at 1)1 + 1 
at / ( / 6 / RUN / at 1)1 = 1 answer 


sto 

2 

00 

— 

F 

01 

# 

3 

02 

2 

2 

03 

+ 

E 

04 

V 

A 

05 

gin 

1 

06 

2 

2 

07 

1 

1 

08 

# 

3 

09 

1 

1 

10 

X 

* 

11 

V 

A 

12 

MEx 

5 

13 

= 

— 

14 

T 

A 

15 

MEx 

5 

16 

T 

A 

17 

goto 

2 

18 

0 

0 

19 

1 

1 

20 

= 

— 

21 

rc! 

5 

22 

stop 

0 

23 

V 

A 

24 

goto 

2 

25 

0 

0 

26 

0 

0 

27 



28 



29 



30 



31 



32 



33 



34 



35 


26 


FACTORIALS 
OF LARGE NUMBERS 


This program calculates In {nI) for n greater 
than about 25. 

Reasonably accurate results are given for 
n greater than 10 . 

(The program uses Stirling's approximation, 
n! —\j2-nn e“ n n n ) 

Execution: 

n/ RUN /In (n!) 


sto 

2 

00 

+ 

E 

01 

# 

3 

02 

• 

A 

03 

5 

5 

04 

X 

• 

05 

( 

6 

06 

rcl 

5 

07 

In 

4 

08 

) 

6 

09 

— 

F 

10 

rcl 

5 

11 

+ 

E 

12 

# 

3 

13 

• 

A 

14 

9 

9 

15 

1 

1 

16 

8 

8 

17 

9 

9 

18 

= 

— 

19 

stop 

0 

20 


A 

21 

goto 

2 

22 

0 

0 

23 

0 

0 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


27 























































































THE GAMMA 
AND PI FUNCTIONS 

r (n + 1) = 7r(n) = n! 


r(x + 1) = xT(x) 
r ( 0 ) is undefined 

r (%) =vf 
r (i) = i 


when n is an integer 
for x > 0 

7T (0) = r (i) = i 
it ('/*) = y 2 0r 
?r (i) = r ( 2 ) = i 


-- 

+ 

E 

00 

+ 

E 

01 

stop 

0 

02 

sto 

2 

03 

— 

F 

04 

# 

3 

05 

1 

1 

06 

-f 

G 

07 

# 

3 

08 

2 

2 

09 

= 

— 

10 

In 

4 

11 

X 

* 

12 

rcl 

5 

13 

= 

— 

14 

T 

A 

15 

e x 

4 

16 


G 

17 

( 

6 

18 

stop 

0 

19 

-r 

G 

20 

rcl 

5 

21 


G 

22 

+ 

E 

23 

# 

3 

24 

i 

1 

25 

= 

— 

26 

) 

6 

27 

T 

A 

28 

goto 

2 

29 

1 

1 

30 

7 

7 

31 

rcl 

5 

32 

) 

6 

33 

= 

— 

34 

stop 

0 

35 


By interpolation: 

r (n + 5) ^ (n + y 2 5 - y 2 )« r (n) o < 5 < 1 

V (5) == (n + y 2 5 - y 2 ) s n n 1 0 < 5 < 1 

r= 1 r + 5 

r {g> _ (g) ^ (n + %g — %) a n r 

5 5 r = i(r + 6) 

0 <§ < 1 

n should be suitably large for the accuracy 
required. 

n = 20 gives high accuracy 

n = 5 gives reasonable accuracy for most 
purposes 

e.g. 7t (y 2 ) = YzsJT = 0-8862269 
n = 5 gives it (V 2 ) — 0-885547 
n = 20 gives ir (%) - 0-8861174 

Execution: 

AT / AT / goto / 0 / 0 / 

n / RUN / 6 / RUN / n - 1 / RUN / n - 2 / 
RUN / - - - / 2 / RUN /I /RUN/ /at / 
at / goto 73/2/ RUN / 


FIBONACCI NUMBERS 


Each number in the sequence is the sum of the 
previous two. 

Execution: 

C /CE/ RUN / F, / RUN / F 2 / RUN / • ■ • 


sto 2 

00 

# 

3 

01 

1 

1 

02 

+ 

E 

03 

stop 

0 

04 

w 

A 

05 

MEx 

5 

06 

V 

A 

07 

goto 

2 

08 

0 

0 

09 

3 

3 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 


31 



32 



33 



34 



35 


29 

























































































































NUMBER 

BASE CONVERSIONS 

Decimal to binary (fractions) 


Given a decimal x, 0 < x < 1 , this program 
calculates the binary expansion of x to any 
number of places. 

Suppose x = 0d 1 d 2 ... (binary) 

Execution: 

x/RUN/ /RUN/ /RUN/ /■•• 

To calculate the expansion of another decimal 
y, press 

/C/CE / C/CE / AT / AV / goto /0/0/y/RUN / • 

etc. 

Notes: 

1. To convert decimal integers to binary use 
the program on page 31. 

2. No program for converting decimal 
fractions to bases other than 2 is provided. 


sto 

2 

00 

# 

3 

01 

1 

1 

02 

= 

— 

03 

▼ 

A 

04 

MEx 

5 

05 

— 

F 

06 

( 

6 

07 

rcl 

5 

08 

-f 

G 

09 

# 

3 

10 

2 

2 

11 

= 

— 

12 

sto 

2 

13 

) 

6 

14 

— 

F 

15 

( 

6 

16 

V 

A 

17 

gin 

1 

18 

2 

2 

19 

4 

4 

20 

# 

3 

21 

1 

1 

22 

+ * 

E 

23 

# 

3 

24 

0 

0 

25 

X 

• 

26 

stop 

0 

27 

rcl 

5 

28 

> 

6 

29 

+ 

E 

30 

rcl 

5 

31 

T 

A 

32 

goto 

2 

33 

0 

0 

34 

6 

6 

35 


30 


NUMBER 

BASE CONVERSIONS 

Decimal integer to base m 


This program expresses any integer in any base. 
Suppose x = a, • • • a r in base m. 

Execution: 

m/RUN/x/RUN/ /RUN/ /•■•/ / 

RUN/ 

Note that the digits are produced in reverse 
order and that the machine tells you that all the 
digits have been shown by displaying the base m. 

The sequence can be repeated for a new x and/or 
m. If the same m is required there is no need to 
re-enter it because it is already in the display. 

Note: To convert decimal fractions to base 2, 
use the program on page 30. 


sto 

2 

00 

stop 

0 

01 

— 

F 

02 

( 

6 

03 

+ 

E 

04 

# 

3 

05 

1 

1 

06 

— 

F 

07 

+ 

E 

08 

rcl 

5 

09 

— 

F 

10 

V 

A 

11 

gin 

1 

12 

0 

0 

13 

7 

7 

14 

+ 

E 

15 

rcl 

5 

16 

— 

F 

17 

# 

3 

18 

1 

1 

19 

= 

— 

20 

) 

6 

21 

stop 

0 

22 

-r 

G 

23 

rcl 

5 

24 

— 

F 

25 

— 

F 

26 

▼ 

A 

27 

gin 

1 

28 

0 

0 

29 

2 

2 

30 

= 

— 

31 

rcl 

5 

32 

stop 

0 

33 

= 

— 

34 

= 

L- 

35 


31 































































































Ml IIV/I R C D 
iM LIIVI l 5C ri 

BASE CONVERSIONS 


Binary is a n • • • a 0 
Execution: 

a n / RUN / a n _! / RUN /•■'•/ a 0 / = / 


+ E 

i- 1 

O 

° 

+ E 

01 

stop 

▼ 

0 

A 

02 

03 

goto 

2 

04 

0 

o 

o 

0 

0 

06 



07 



o 

00 



09 



10 



11 



12 



13 



14 



15 



16 



17 

18 





19 



20 

21 



22 



23 

; 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


32 


NUMBER 

BASE CONVERSIONS 

Binary fraction to decimal 


If number is: 

O’ b n b 2 * * * b k 

Execution: 

RUN /b, / RUN / b 2 / • • ■ / b k / RUN / answer 
At each stage the answer so far is displayed. 

Fraction base m to decimal 

Exactly the same except / 2 / at step 10 is 
replaced by the appropriate base. 


# 

3 

00 

1 

1 

01 

= 

— 

02 

sto 

2 

03 

( 

6 

04 

stop 

0 

05 

▼ 

A 

06 

MEx 

5 

07 


G 

08 

# 

3 

09 

2 

2 

10 

X 

• 

11 

▼ 

A 

12 

MEx 

5 

13 

) 

6 

14 

+ 

E 

15 

▼ 

A 

16 

goto 

2 

17 

0 

0 

18 

4 

4 

19 



20 



21 



22 



23 



24 



25 



26 



27 


28 


29 


30 


31 


32 



33 



34 



35 


33 






























































































+ 

E 

00 


+ 

E 

01 


stop 

0 

02 


— 

F 

03 


— • 

F 

04 


▼ 

A 

05 


gin 

1 

06 


0 

0 

07 


0 

0 

08 


sto 

2 , 

09 


= 

. —’ 

10 


# 

3 

11 


i 

1 

12 


= 

— 

13 

Binary isa n .. . a 0 • b,... b m 

▼ 

A 

14 


MEx 

5 

15 

Execution: 

+ 

E 

16 

c /ce / RUN / a n / RUN / a„ _, / RUN / ■ • • / 

( 

6 

17 

RUN/a 0 / — / RUN/b,/ RUN / b 2 / • ■ • / b m / 

stop 

0 

18 

RUN / 

T 

A 

19 


MEx 

5 

20 

Notes: 

-r 

G 

21 

1. The / — / corresponding to the 'decimal' 

# 

3 

22 

point must be entered even if the number 

2 

2 

23 

is an integer. 

X 


24 

2. The correct answer will be given if: 

T 

A 

25 

a n = 1 

MEx 

5 

26 

n> 1 

) 

6 

27 

a Q = 1 or 0 

T 

A 

28 

or just -b, • • • (• entered as —) 

goto 

2 

29 


1 

1 

30 

To re-use: 

6 

6 

31 

c /CE / C/ce / AT / AT / goto / 0 / 0 



32 




33 




34 




35 


34 


Number is a n a n _•)■■■ a Q 
Execution: 

m / RUN / a n / RUN /a n _, / RUN / ■ • • / a Q / 
= / 

To re-use with same m: 
c /ce/ RUN /a„ ■ • • 


sto 

2 

00 

stop 

0 

01 

X 

• 1 

02 

rcl 

5 

03 

+ 

E 

04 

T 

A 

05 

goto 

2 

06 

0 

0 

07 

1 

1 

08 

09 



10 



11 



12 



13 



14 

15 



16 


17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 


30 



31 


32 

33 

34 



35 


35 










NUMBER 

BASE CONVERSIONS 


Base m to decimal (integers, fractions or 
mixed numbers) 


Number is: a n . . . a D • b, . . . b p 

Example: 
m = 7 

Execution: 

c /ce/ RUN /aj RUN /a n _ 1 /■ • • / RUN /aj 
- / RUN / b n / RUN / b 2 / • • • / RUN / b p / 
RUN / 

Notes: 

1. I nsert value of m at 02 and 25. 

2. If two digit base is used, insert at 02, 03, 
move the next 22 steps down one, insert 
the base again at 26, 27, and substitute 

/ 1 / 9 / for / 1 / 8 / in the last two steps. 


X 

• 

00 

# 

3 

01 

7 

7 

02 

+ 

E 

03 

stop 

0 

04 

— 

F 

05 

— 

F 

06 

w 

A 

07 

gin 

1 

08 

0 

0 

09 

0 

0 

10 

sto 

2 

11 

= 

~ 

12 

# 

3 

13 

1 

1 

14 

= 

— 

15 

v 

A 

16 

MEx 

5 

17 

+ 

E 

18 

( 

6 

19 

stop 

0 

20 

T 

A 

21 

MEx 

5 

22 

-r 

G 

23 

# 

3 

24 

7 

7 

25 

X 

• 

26 

V 

A 

27 

MEx 

5 

28 

L 

6 

29 

V 

A 

30 

goto 

2 

31 

1 

1 

32 

8 

8 

33 



34 



35 


36 


SERIES 

Natural numbers 


(1 + 2 + • • • + n) = ^ n(n + 1 ) 
2 

Execution: 
n/RUN / 


+ 

E 

00 

( 

6 

01 

X 

• 

02 

) 

6 

03 


G 

04 

# 

3 

05 

2 

2 

06 

= 


07 

stop 

0 

08 


A 

09 

goto 

2 

10 

0 

0 

11 

0 

0 

12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


37 















































































































SERIES 


Squares of natural numbers 


(1 + 4 + 9 + -- - + n 2 )=^n(n + 1)(2n + 1) 

6 


Execution: 
n/RUN / 


sto 

2 

00 

+ 

E 

01 

+ 

E 

02 

# 3 

03 

3 

3 

04 

X 

• 

05 

rcl 

5 

06 

+ 

E 

07 

# 

3 

08 

1 

1 

09 

X 


10 

rcl 

5 

11 

-r 

G 

12 

# 

3 

13 

6 

6 

14 

= 

— 

15 

stop 

0 

16 

T 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 

[ .. 1 


21 



22 

_ 


23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


38 


SERIES 


lubes of natural numbers 


(1 +8 + 27 + - • • n 3 ) =~-n 2 (n + I) 2 

Execution: 
n/RUN / 


+ 

E 

00 

( 

6 

01 

X 

• 

02 

) 

6 

03 

X 

* 

04 

-r 

G 

05 

# 

3 06 

4 

4 

07 

= 

- 08 

1 .-j 

stop 

0 09 

T 

A 

10 

11 

goto 

2 

0 

0 

12 

0 

0 

13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 

1- _ 


24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


39 






















































ARITHMETIC SERIES 


First term = a 
Common difference = d 
N terms 


sum = N 


a + 


<N- 1)d j 


Execution: 

a/RUN/N / RUN/d/RUN/ 


+ 

E 

00 

( 

6 

01 

stop 

0 

02 

sto 

2 

03 

— 

F 

04 

# 

3 

05 

1 

1 

06 

4- 

G 

07 

# 

3 

08 

2 

2 

09 

X 

• 

10 

stop 

0 

11 

) 

6 

12 

X 

* 

13 

rcl 

5 

14 

= 

— 

15 

stop 

0 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


40 


ARITHMETIC SERIES 


First term = a 

Last term = I 

N terms 

N(a + I) 
sum = —-— 

Execution: 

a/RUN / I/RUN / N / RUN/ 


+ 

E 

00 

stop 

0 

01 

4 

G 

02 

# 

3 

03 

2 

2 

04 

X • 

• 

05 

stop 

0 

06 

= 

— 

07 

stop 

0 

08 

▼ 

A 

09 

goto 

2 

10 

0 

0 

11 

0 

0 

12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


41 




























































































4- 

G 

00 


( 

6 

01 


stop 

0 

02 


sto 

2 

03 


— 

F 

04 


# 

3 

05 


1 

1 

06 


= 

— 

07 


) 

6 

08 


X 

• 

09 


( 

6 

10 

a (1 r n ) 

rcl 

5 

11 

S = a + ar + • • ■ + ar N - 1 = -j- - 

(1 - r) 

In 

4 

12 


X 


13 

First term = a 

stop 

0 

14 

Common ratio = r 

= 

— 

15 

N terms 

▼ 

A 

16 


e x 

4 

17 

Restrictions: 

— 

F 

18 

r> 0 , r #1 

# 

3 

19 


1 

1 

20 

Execution: 

= 


21 

a/ RUN /r/ RUN / N / RUN / 

) 

6 

22 


= 

— 

23 


stop 

0 

24 


V 

A 

25 


goto 

2 

26 


0 

0 

27 


0 

0 

28 


29 

30 

31 

32 

33 

34 

35 
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S = a + ar + ar 2 + ■ • • = z - 

1 — r 

Restriction: 

|r| < 1 

Execution: 
a / RUN/r/RUN / 



G i 

00 

( 

# 

6 ■ 
3 

01 

02 

1 

1 

03 

f 

F 04 

1 _ 

stop 

0 05 

) 

6 

06 

= 

— 

07 

stop 

0 

08 

---J- 

▼ 

A 

09 

goto 2 

10 

0 

0 

11 

0 

0 

12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ARITHMETIC - 
GEOMETRIC SERIES 
(infinite) 


S = a + (a + d)r + (a + 2d)r 2 + • ■ ■ + (a + nd)r n + 
dr 


a + 


1 - r 


1 -r 


Restriction: 

|r| < 1 

Execution: 

r / RUN / d / RUN / a / RUN / sum 


— 

F 

00 

# 

3 

01 

1 

1 

02 

— 

F 

03 

-r 

G 

04 

X 

• 

05 

( 

6 

06 

— 

F 

07 

# 

3 

08 

i 

1 

09 

X 


10 

stop 

0 

11 

+ 

E 

12 

stop 

0 

13 

) 

6 

14 

as 

— 

15 

stop 

0 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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SUMMING SERIES 
IN GENERAL 


N 

2 a(n), some function a. 


Examples: 

1. 1 + 4 + 9 + • • • + N 2 



1 

a(n) = n 3 +-5 etc. 
n 


a(n) = n 2 



Write a program segment which evaluates a(n) 
when n is in memory; parentheses may not be 
used. The segment may be up to 15 steps long, 
any final 1 = 1 stop / being omitted. Fill up any 
unused steps with / = /••■/ = /. 

Examples for above: 

1. n 2 rcl / X / 

2 . n 3 +-^ write as (n 5 + 1 ) + n 2 

n 2 

rcl / X / X / X / rcl / + / # / 1 / + / rcl / rcl 
=/=/=/ 

Then use the program as shown. 


Pre-execution: 

Clear memory with c /ce / at / sto / 


Execution: v 

N / RUN / a( 1) + a(2) + • ■ - + a(n) 


= 

— 

00 


A 

01 

MEx 

5 

02 

+ 

E 

03 

( 

6 

04 



05 

Y 


06 

O 


07 

U 


08 

R 


09 



10 

S 


11 

E 


12 

G 


13 

M 


14 

E 


15 

N 


16 

T 


17 



18 



19 

) 

6 

20 

= 

— 

21 

T 

A 

22 

MEx 

5 

23 

— 

F 

24 

# 

3 

25 

1 

1 

26 

— 

F 

27 

— 

F 

28 

▼ 

A 

29 

gin 

1 

30 

0 

0 

31 

0 

0 

32 

= 

— 

33 

rcl 

5 

34 

stop 

0 

35 


45 
































































































a(x!) + a(x 2 ) + • • • + a(x n ) 

Write a program segment to evaluate a(Xi) 
without using parentheses; the memory may 
be used. 

Then use the following program: 

/ ( / stop /••• seg ■••/)/ + / ▼/ goto / 0 / 0 / 

Execution: 

RUN / x-, / RUN / x 2 / • • • / x n / RUN / 

At each step the sum so far is displayed. 
Example: 

To find 2tan(x 2 +^ 

C 2 J.' X 3 + 1 

Express x 2 + — as - 

x x 

Program segment is then: 

/ sto / X / X / rcl / + / # / 1 / -5- / rcl / = / tan / 

and so program is as shown. 

The segment may be up to 32 steps long, by 
omitting / ▼ / goto / 0 / 0 / at the end and 
filling any empty steps with / = /. 


( 

6 

00 

stop 

0 

01 

sto 

2 

02 

X 

• 

03 

X 

• 

04 

rcl 

5 

05 

+ 

E 

06 

# 

3 

07 

1 

1 

08 


G 

09 

rcl 

5 

10 

= 

— 

11 

tan 

9 

12 

) . 

6 

13 

+ 

E 

14 

V 

A 

15 

goto 

2 

16 

0 

0 

17 

0 

0 

18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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Resistors in parallel, capacitors in series, lenses 
in series, etc. 

1=1 + ...+— 

X X, x n 

Execution: 

x, / RUN / x 2 / RUN / • ■ ■ / x n / RUN / 

At each step the harmonic sum so far is 
displayed. 


4- 

G 

00 

+ 

E 

01 

( 

6 

02 

-r 

G 

03 

= 

— 

04 

stop 

0 

05 

4- 

G 

06 

) 

6 

07 

▼ 

A 

08 

goto 

2 

09 

0 

0 

10 

1 

1 

11 



12 



13 



14 



15 



16 



17 

18 



19 

20 



21 



22 



23 



24 



25 



26 



27 

28 

29 

30 

31 

32 

33 

34 

35 
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PYTHAGOREAN 

ADDITION 

Geometry, electricity 


x = ‘ + x^ 

Execution: 

x, / RUN / x 2 / RUN / • • ■ /x n / RUN / 

At each step the intermediate result 
>/x? + • • ■ + xf is displayed. 


X 

• 

00 

+ 

E 

01 

( 6 

02 


1 

03 

stop 

0 

04 

X 


05 

) 

L_ 

6 

06 

T 

A 

07 

goto 

2 

08 

0 

0 

09 

1 

1 

10 



11 



12 



13 



14 



15 


16 


17 



18 



19 



20 

_ 


21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ARITHMETIC MEAN 


Pre-execution: 

C /CE / C/CE / AT / AT / goto / 0 / 0 
Execution: 

x, / RUN /x 2 / RUN /• ■ ■ /x n / RUN / 

arithmetic mean 

At each stage the arithmetic mean so far is 
displayed. 


X • 

00 

( 

6 

01 

# 

3 

02 

1 

1 

03 

= 

_ 

04 

sto 

2 

05 

) 

6 

06 

+ 

E 

07 

( 

6 

08 

stop 

0 

09 

•f 

G 

10 

rcl 

5 

11 

) 

6 

12 

-r 

G 

13 

( 

6 

14 

# 

3 

15 

i 

1 

16 

+ 

E 

17 

rcl 

5 

18 

-r 

G 

19 

▼ 

A 

20 

MEx 

5 

21 

) 

6 

22 

▼ 

A 

23 

goto 

2 

24 

0 

0 

25 

7 

7 

26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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Pre-execution: 

C/CE / C/ CE / Av / AT / goto / 0 / 0 
Execution: 

x, / RUN / x 2 / RUN / • • • /x n / RUN / 

At each stage the geometric mean so far is 
displayed. 


In 

4 

00 

X 

•. 

01 

( 

6 

02 

# 

3 

03 

1 

1 

04 

= 

— 

05 

sto 

2 

06 

) 

6 

07 

+ 

E 

08 

( 

6 

09 

▼ 

A 

10 

e x 

4 

11 

stop 

0 

12 

In 

4 

13 

4- 

G 

14 

rcl 

5 

15 

) 

6 

16 

4- 

G 

17 

( 

6 

18 

# 

3 

19 

1 

1 

20 

+ 

E 

21 

rcl 

5 

22 

4- 

G 

23 

T 

A 

24 

MEx 

5 

25 

) 

6 

26 

▼ 

A 

27 

goto 

2 

28 

0 

0 

29 

8 

8 

30 



31 



32 



33 



34 

35 
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i=ia + 


H n vx-, 

Pre-execution: 

C/CE / C/CE / AT / AT / goto / 0 / 0 


Execution: 

x, / RUN /x 2 / RUN /• ■ ■ /x n / RUN / 


At each stage the harmonic mean so far is 
displayed. 


4- 

G 

00 

X 


01 

( 

6 

02 

# 

3 

03 

1 

1 

04 

= 

— 

05 

sto 

2 

06 

) 6 

07 

+ 

E 

08 

( 

6 

09 


G 

10 

= 

— 

11 

stop 

0 

12 

-r 

G 

13 

-f 

G 

14 

rc! 

5 

15 

> 

6 

16 

4- 

G 

17 

( 

6 

18 

# 

3 

19 

1 

1 

20 

+ 

E 

21 

rcl 

5 

22 

4- 

G 

23 

T 

A 

24 

MEx 

5 

25 

) 

6 

26 

V 

A 

27 

goto 

2 

28 

0 

0 

29 

8 

8 

30 



31 



32 



33 



34 



35 
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ROOT MEAN SQUARE 


R _\/ ( x i + - • • +xg ) 
n 

Pre-execution: 

C/CE / C/CE / AT / AT / goto / 0/0 
Execution: 

Xi / RUN /x 2 /- • • /x n / RUN / 

root-mean-square 

At each stage the r.m.s. so far is displayed. 


X 

• 

00 

X 

• 

01 

( 

6 

02 

# 

3 

03 

1 

1 

04 

= 

— 

05 

sto 

2 

06 

) 

6 

07 

+ 

E 

08 

( 

6 

09 

V* 

1 

10 

stop 

0 

11 

X 

* 

12 

-r 

G 

13 

rcl 

5 

14 

) 

6 

15 


G 

16 

( 

6 

17 

# 

3 

18 

1 

1 

19 

+ 

E 

20 

rcl 

5 

21 

-r 

G 

22 

Y 

A 

23 

MEx 

5 

24 

) 

6 

25 

Y 

A 

26 

goto 

2 

27 

0 

0 

28 

8 

8 

29 



30 



31 



32 



33 



34 



35 


52 


QUADRATIC 

EQUATIONS 


ax 2 + bx + c = 0 


Roots x 1 , x 2 if real 
R ± il if complex 


Execution: 


a/ RUN/b/ 
RUN/c/RUN / 


/RUN/ /RUN/ 
RUN / c /ce / C/ce / if roots 
are real 

I* / c /ce / RUN / / 

if roots are complex 


* error symbol displayed 


After the sequence a / RUN / b / RUN / c / 

RUN / the display shows either (if the roots are 
real) the larger real root with no error indication 
or (if the roots are complex) the imaginary part 
and the error symbol. Continue with the 
appropriate execution sequence. 

The error symbol will tell you whether the roots 
are complex. The sequence / RUN / RUN / c /ce / 
shown above after (x 2 ) is necessary before 
entering a new equation to be solved. 
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CUBIC EQUATIO 
bv ar» iterative rr 




lJ 

rui 


ax 3 + bx 2 + cx + d = 0 
Formula: 

= 2ax 3 + bx 2 — d (based on Newton- 
k + 1 3ax£ + 2bx k + c Raphson method) 

(Fill in your own values of 2a, b, d, etc.; 
if any of these are negative change the + or — 
preceding them to — or +) 

Execution: 



x 0 / RUN / /RUN/ /••• 

If the sequence converges, the limit will solve 
the equation. 

If the sequence does not converge, try a new 
starting value. 

The sequence will usually converge to the root 
closest to the starting value and so by trying 
different starting values all the roots should be 
obtained. 

* where a, a 2 is the two digit number 3a; 
if 3a < 10 then enter a, = 0 and a 2 as the value 
of 3a. Similarly ^ b 2 is 2b. 


sto 

2 

00 

X 

• 

01 

# 

3 

02 

a 

a 

03 

+ 

E 

04 

+ 

E 

05 

# 

3 

06 

b 

b 

07 

X 


08 

rcl 

5 

09 

X 


10 

rcl 

5 

11 

— 

F 

12 

# 

3 

13 

d 

d 

14 

-r 

G 

15 

( 

6 

16 

# 

3 

17 

fl 

a •( 

18 

a 2 

a 2 

19 

X 

• 

20 

rcl 

5 

21 

+ 
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POLYIMOM 



To evaluate 

a n x" + a n _ 1 x n - 1 + --- + a 0 = p(x) 

Execution: 

x / RUN / a n / RUN / a n _, / • • • / a, / RUN / a Q / 

= / 

To use again: (with different x) 
at / ay / goto / 0 / 0 / before execution 

Notes: 

1. The individual results after each / RUN / 
are the coefficients of the polynomial q(x) 
where q(t) = p(t) / (t — x). 

2. If p(x) = 0, x is a root and q(x) is the 
quotient polynomial which can be solved 
for other roots of p(x). 
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15 
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POLYNOMIALS 

To write a program to evaluate the same 
polynomial repeatedly 


Example: 

p(x) = 5x 4 + 8x 3 — 3x 2 + 4-2x + 1 
Method: 

Express as [ [(5x + 8)x — 3]x + 4-2 Jx + 1 
Execution: 

x / RUN / / y / RUN / • ■ ■ etc. 

Note: If a coefficient is zero omit it together 
with the — or + sign preceding it. If the leading 
coefficient is 1, it may be omitted together 
with the multiplication sign which precedes it. 
See over for example. 
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E 

14 

# 

3 

15 

4 

4 

16 


A 

17 

2 

2 

18 

X 


19 

rcl 

5 

20 

+ 

E 

21 

# 

3 

22 

1 

1 

23 

= 

— 

24 

stop 

0 

25 

V 

A 

26 

goto 

2 

27 

0 

0 

28 

0 

0 

29 



30 



31 



32 



33 



34 



35 


56 


POLYNOMIALS 


first coefficient = 1, 
so omitted. 


Example: 

To calculate x 3 + 2x 2 + 3 


coefficient of x = 0, 
so omitted. 
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▼ 

A 


MEx 

5 


X 

• 


stop 

0 


+ 

E 

Division of the polynomial 

( 

6 

p(x) = a n x n + a^x" -1 + • ■ ■ + a v x + a 0 

stop 

0 

by the quadratic divisor 

X 

* 

d(x) = x 2 + mx + n 

rcl 

) 

5 

gives the quotient polynomial 

q(x) = b n _ 2 x n " 2 + b rv _ 3 x n ~ <3 +-+ b, x + b Q 

D 

F 

stop 

0 

with remainder 

— 

F 

r(x) = c-, x + c 0 

= 

— 

Pre-execution: 

stop 

0 

AT / AT / goto 7 0/0/ C /CE / AT / stQ / 

T 

A 

goto 

2 

Execution: 

0 

0 

RUN In/ RUN / m 7 RUN / a n / RUN / 

0 

0 


RUN / n / RUN / m / RUN / a n _, / RUN / 

RUN / n/ RUN/m / RUN /a 2 / RUN / 

RUN/n/RUN/m/RUN / a, / RUN / 

RUN / n / RUN / m / RUN / a n / RUN / RUN / 
m / RUN/1/RUN / 

/ RUN / RUN / completes execution 
Results may be tabulated as below: e.g.to divide 


x 6 — 4x 5 + 31x 4 — 

96x 3 + 415x 2 

—652x +1 

by x 2 + 2x + 3: 

r n m 

a r 

b r ._ 2 

6 3 2 

1 

1 

5 

-4 

-6 

4 

31 

40 

3 

-96 

-158 

2 

415 

611 

1 

-652 

-1400 = 

0 

1105 

-728 = 
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L 


This is an iterative method to find a quadratic 
factor of a polynomial. When the polynomial 
has been reduced to quadratic factors, these can 
be solved to give the real or complex roots of 
the original polynomial. 

Stage 1: 

Choose a starting quadratic divisor 
d(x) = x 2 + mx + n (say) 

Divide p(x) by d(x) to give a quotient q(x) and 
remainder r(x) = rx + s 

Stage 2: 

Divide q(x) again by d(x) to give a new quotient 
q'(x) and remainder r'(x) = tx + u 

Stage 3: 

Find the coefficients m' and n' of the next 
iterate of the quadratic divisor using this program 

Execution: 

u / RUN /t/ RUN / m / RUN /n / RUN / 
p/ RUN /t/ RUN /u / RUN /s / RUN /r/ 

RUN/t/RUN/—/+/n/=/ 
at / at / goto / 2 / 5 / r / RUN / u / RUN / 
n/X/s/RUN /1/RUN / + / m / = / 

D = u 2 + nt 2 — mut 


, rt + s(mt —u) 

n = n --- 

Re-enter the quadratic divisor program and 
iterate again with the new values of m' and n'. 
Repeat stages 1-3 until the values of m and n 
converge. 


X 

• 

00 

sto 

2 

01 

— 

F 

02 

( 

6 

03 

rcl 

5 

04 

X 

• 

05 

stop 

0 

06 

sto 

2 

07 

X 

• 

08 

stop 

0 

09 

) 

6 

10 

+ 

E 

11 

( 

6 

12 

rcl 

5 

13 

X 

• 

14 

X 


15 

stop 

0 

16 

) 

6 

17 

= 

— 

18 

sto 

2 

19 

stop 

0 

20 

X 


21 

stop 

0 

22 

— 

F 

23 

stop 

0 

24 

X 

• 

25 

stop 

0 

26 

+ 

E 

27 

( 

6 

28 

stop 

0 

29 

X 

• 

30 

stop 

0 

31 

) 

6 

32 

-f 

G 

33 

rcl 

5 

34 

stop 

0 

35 


59 

























NUMERICAL 

INTEGRATION 

Triangular interpolation 


1 -^ h (yo + 2y, + 2y 2 + • • • + 2y n _, + y n ) 
Execution: 

n / RUN / y Q / RUN /y, / RUN / y 2 / RUN / ■ ■ • 
/ RUN /y n /RUN/h/RUN/ 
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NUMERICAL 

INTEGRATION 

Simpson's Rule 


I = |h(y Q + 4y, + 2y 2 + 4y 3 + • • ■ + 4y + y n ) 

(n must be even) 

Execution: 

n / — / 1 / = / RUN /y, / RUN /• ■ • /y n / RUN / 
h/RUN / 
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Y 



integral = To * Vo + 5yi +V2 + 6y 3 + Y4 + 5y s + y 6 ) 
Execution: 

y 0 / RUN / Yl / RUN / y 2 / RUN / y 3 / RUN / y 4 / 
RUN / y 5 / RUN / y 6 / RUN/h 1 / = / 
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z = x + iy 
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To find magnitude and argument. 
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Execution: 
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If y = 0, then z = |x| and arg z = (0 if x > 0, 

# 
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15 

7T if x < 0) 

1 

1 
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Otherwise use polar-cartesian program, 
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25 

execution as follows: 

( 

6 

26 

|z| / RUN / arg z / RUN / / RUN / 

rcl 

5 

27 


X 

• 

28 


■f 

G 

29 



1 

30 


rcl 

5 

31 


) 

6 

32 


= 

— 

33 


stop 

0 

34 


= 

— 

35 


63 































DETERMINANTS 


a 1 

a 2 


b, 

b 2 


a i b 2 a 2 b-j 


Execution: 

a, / RUN / b, / RUN /a 2 / RUN / b 2 / RUN / 

det 
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MATRIX 

MANIPULATION 

1. Matrix multiplication (steps 00-11) 

AB = C 

n 

Cjj — ^2 3j k b kj 
Execution: 

a {1 / RUN /b„ / RUN / 
a j2 / RUN /b 2j / RUN / • • • 
a in / RUN /b nj / RUN / 

To restore zero total for next calculation, 
press c /ce. 

Error correction: 

For a ik : C £E / + / a ik 

For b kj : av / ) / C/ce / + / at / ( / b kj 

2. Back substitution (steps 00—21) 

(for AX = B where A is upper triangular) 

( b « - a * x «) 

Xjj = - 

J a- 

d u 

Pre-execution: 

at / at / goto / 0 / 0 / for each Xjj 
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MATRIX 

MANIPULATION 


Execution: 

x nj / RUN / a ln / RUN /• • • /x, + 1J / RUN /a u + 1 7 RUN / 
AT / at /goto / 1 121 RUN /b u / RUN / a,, / RUN / 


Error correction: 


Forx kj : 

C /CB/ + / x kj 

Fora ik : 

/AT / ) / C/CE / + / AT / ( / a 

For bij : 

xf 

1 

LJU 

$ 

For a N : 

C /CE/-E/a n 

3. Addir 

ig a multiple of row i to row j ii 

(steps 16—30) 


a jk = ajk + m jiaik , b/ k = b jk + m„b| k 

where nr^ = — — 

a ii 

Pre-execution (each m jf ): ' 

AT / AT / goto / 1 / 6 / C /CE 

Execution: 

a ii / RUN / a n / RUN / error correction: re-run from 16 

a jk / RUN / a jk / RUN / 
b ik / RUN / b jk / RUN / 

/Vote: If nrtjj is known pre-execution can be at / at / goto / 1 / 9 / c /ce 
and first part of execution m„ / RUN / - 
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EQUATION SOLVING 

The secant method 

In this variant of the Newton-Raphson method 
for solving the equation f(x) = 0, instead of 
computing the derivative f'(x) at each stage, an 
approximation to f'(x) at a point in the vicinity 
of a root x r is used. 

Stage 1: 

Write a program segment to compute f(x) when 
x is in memory, taking up no more than 27 steps 
excluding the final / stop /. Enter the program 
starting at step 01, ending with the sequence 
/ stop / ▼/ goto / 0 / 0 /. 

Execution: x / RUN / 

Evaluate f(x) for a range of values in which a 
root is likely to occur. If f(x.,) and f(x 2 ) have 
opposite signs, there is a root between x, and x 2 . 

Stage 2: 

Calculate an approximation to the derivative of 
f(x) as follows: 

f(x 2 ) / — / f(x,) /•*•■/ at / ( / x, / — / x 2 / at / 
)/ = / - -f'(x r ) 

Stage 3: 

The iteration formula for the secant method is 


where K is a constant approximately equal to the 
derivative of f(x) at the root. K may be chosen 
to be equal to k, or may be an integer or a 
number with fewer digits than k, in which case it 
should be numerically larger than k. 

Note: If the program segment in Stage 1 took 27 
steps, there is room for only one digit for K in' 
the following program, (contd. over) 
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Starting at the final / stop / step, press / at / LEARN / and enter 
the sequence: 

/ 4- /#/K/ + /rcl/ = / stop / for K positive, or 

/ — / ^/ #/ K/ + /rcl/ = / stop / for negative K 

The sequence / v / goto / 0/ 0/or/ = / steps may be added at the 
end. 

Execution: x/RUN/ 

/RUN/ ••• 

Repeat until successive values are equal. If convergence is slow, 
decrease K. If the results diverge, increase K. 

If k is a small fraction, the / + / step may be replaced by a / X / step 
and K taken as the reciprocal of k. 

See below for example. 
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Example: 

To solve cos x = x 
f(x) = cos x — x 

Take x, =y, x 0 = 0. 


Then 


f(x 0 ) - f(x,) 

*1 -Xq 



Program segment is / cos / — / rcl 

Guess 1 as starting solution 

Execution: 

1/RUN / 

/ RUN / 

/ RUN / 

/ RUN / 

/ RUN / 

/ RUN / 

/ RUN / 

/ RUN/ 

/ RUN / 

/ RUN/ 

/ RUN / 

/ RUN / 

/ RUN / 448 

/ RUN / 

/ RUN / 

So result is 0-7391447 
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CIRCLES 

Circumference and area 


Execution: 

radius / RUN / / RUN / 
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CIRCLES 

Radius of circle from area 


r 

Execution: 

A/RUN/ 
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CIRCLES 

Area of segment: 



Area of segment if h and r are given: 

r 2 

Area = — (a — sin a) 

. a r — h 

where cos — =- 

2 r 

Note: the angle a is calculated internally and is 
not required to be input. 

Execution: 
r/RUN/h/RUN/ 

Note: limited range, a< 1-57 radians 


sto 

2 

00 

— 

F 

01 

stop 

0 

02 

-T- 

G 

03 

rcl 

5 

04 

= 

- 

05 

▼ 

A 

06 

arccos 

8 

07 

+ 

E 

08 

— - 

F 

09 

10 

( 

6 

sin 

7 

11 

> 

6 

12 

X 


13 

r 

6 

14 

rcl 

5 15 

x 

• 

16 

) 

6 

17 

T 

G 18 

# 

....j 

3 

19 

2 

2 

20 

= 


21 

stop 

0 

22 

V 

A 

23 

goto 

2 

24 

0 

0 

25 

0 

0 

26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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CIRCLES 

Length of chord 



1 = 2 J2hr - h 2 

Execution: 
h/RUN /r/RUN / 


sto 

2 

00 

X 

• 

01 

( 

6 

02 

03 

stop 

0 

+ 

E 

04 

— 

F 

05 

rcl 

5 

06 

07 

) 

6 

+ 

E 

08 


1 

09 

= 

— 

10 

stop 

0 

11 

▼ 

A 

12 

goto 

2 

13 

0 

0 

14 

0 

0 

15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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CIRCLES 

Area of circular annulus 



Area = 7r( R 2 — r 2 ) 
Execution: 

R / RUN / r / RUN / area 


X 

• 

00 

— 

F 

01 

( 

6 

02 

stop 

0 

03 

X 

• 

04 

) 

6 

05 

X 


06 

# 

3 

07 

3 

3 

08 

• 

A 

09 

1 

1 

10 

4 

4 

11 

1 

1 

12 

5 

5 

13 

9 

9 

14 

= 

— 

15 

stop 

0 

16 

V 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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TRIANGLES 

To find area, given base and height 




Execution: 

b/RUN / h / RUN / area 


X 

* 

00 

stop 

0 

01 

4- 

G 

02 

# 

3 

03 

2 

2 

04 

= 

— 

05 

stop 

0 

06 

T 

A 

07 

goto 

2 

08 

0 

0 

09 

0 

0 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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TRIANGLES 

To find area, given all three sides 



Area =^/s(s — a)(s — b)(s — c) 

, / a + b + c \ 

where s = (---j 

Execution: 

a/ RUN/b/RUN/c/RUN/b/RUN / a/ 
RUN / area 


+ 

E 

00 

stop 

0 

01 

+ 

E 

02 

stop 

0 

03 

sto 

2 

04 

-r 

G 

05 

# 

3 

06 

2 

2 

07 

X 


08 

( 

6 

09 

▼ 

A 

10 

MEx 

5 

11 

— 

F 

12 

rci 

5 

13 

— 

F 

14 

) 

6 

15 

X 


16 

( 

6 

17 

rc! 

5 

18 


F 

19 

stop 

0 

20 

) 

0 

21 

X 


22 

( 

8 

23 

rc! 

5 

24 ’ 


F 

25 

stop 

0 

26 

) 

6 

27 

= 

— 

28 

Vx- 

1 

29 

stop 

0 

30 

▼ 

A 

31 

goto 

2 

32 

0 

0 

33 

0 

0 

34 



35 
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TRIANGLES 


Finding a side, given two angles and a side 



a = 


b sin a 
sin 0 


Execution: 

a° / RUN /j3° / RUN /b / RUN / a 


— 

F 

00 

# 

3 

01 

9- 

9 

02 

0 

0 

03 

X 


04 

— 

— 

05 


1 

06 

V 

A 

07 

D-»R 

3 

08 

COS 

8 

09 

4- 

G 

10 

( 

6 

11 

stop 

0 

12 

— 

F 

13 

# 

3 

14 

9 

9 

15 

0 

0 

16 

X 

• 

17 

= 

— 

18 


1 

19 

cos 

8 

20 

) 

6 

21 

X 

• 

22 

stop 

0 

23 

= 

— 

24 

step 

c 

25 

▼ 

A 

26 

goto 

2 

27 

0 

0 

22 

0 

c 

29 



30 



31 



32 



33 






35 
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TRIANGLES 

Length of th ird side from two sides and 
included angle 



a =-y/b 2 + c 2 — 2bc cos a 
Execution: 

b / RUN / c / RUN / a° / RUN / a 


sto 

2 

00 

stop 

0 

01 

X 

• 

02 

( 

6 

03 

— 

F 

04 

rcl 

5 

05 

X 

• 

06 

= 

— 

07 

▼ 

A 

08 

MEx 

5 

09 

+ 

E 

10 

) 

6 

11 

X 

• 

12 

( 

6 

13 

stop 

0 

14 

— 

F 

15 

# 

3 

16 

9 

9 

17 

0 

0 

18 

= 

- 

19 

▼ 

A 

20 

D^R 

3 

21 

sin 

7 

22 

+ 

E 

23 

# 

3 

24 

1 

1 

25 

= 

— 

26 

> 

6 

27 

+ 

E 

28 

rcl 

5 

29 

= . 

— 

30 


1 

31 

stop 

0 

32 

= 

— 

33 

= 

— 

34 

= 

— 

35 


TRIANGLES 

Finding an angle, given three sides 



cos a = 


b 2 + c 2 — a 2 
2bc 


Execution: 

a/RUN/b / RUN / c/ RUN/ cc 0 


-f 

G 

00 

stop 

0 

01 

sto 

2 

02 

X. 

• 

03 

— 

F 

04 

+ 

E 

05 

# 

3 

06 

1 

1 

07 

X 

• 

08 

( 

6 

09 

stop 

0 

10 

-r 

G 

11 

rcl 

5 

12 

= 

— 

13 

sto 

2 

14 

-r 

G 

15 

) 

6 

16 

+ 

E 

17 

rcl 

5 

18 

-r 

G 

19 

# 

3 

20 

2 

2 

21 

= 

— 

22 

▼ 

A 

23 

arcsin 

7 

24 

▼ 

A 

25 

R^D 

6 

26 

— 

F 

27 

+ 

E 

28 

# 

3 

29 

9 

9 

30 

0 

0 

31 

= 

— 

32 

stop 

0 

33 

= 

— 

34 

= 

— 

35 
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TRIANGLES 

Length of medians, given lengths of sides 


B 



g _ y / 2(b 2 + c 2 ) — a 2 
2 

Execution: 

b/RUN/c/RUN/a/RUN/ 


X 


00 

+ 

E 

01 

( 

6 

02 

stop 

0 

03 

X 


04 

) 

6 

05 

+ 

E 

06 

— 

F 

07 

( 

6 

08 

stop 

0 

09 

X 


10 

) 

6 

11 

-r 

G 

12 

# 

3 

13 

4 

4 

14 

= 

— 

15 


1 

16 

stop 

0 

17 

▼ 

A 

18 

goto 

2 

19 

0 

0 

20 

0 

0 

21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 


1 

33 


' 

34 



35 


80 


RIGHT ANGLED 
TRIANGLES 

Length of hypotenuse from other two sides 



h =-y/a 2 + b 2 

Execution: 
a/RUN/b/RUN / 


X 

• 

00 

+ 

E 

01 

( 

6 

02 

stop 

0 

03 

X 

• 

04 

) 

6 

05 

= 

— 

06 

V^T 

1 

07 

stop 

0 

08 

▼ 

A 

09 

goto 

2 

10 

0 

0 

11 

0 

0 

12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 

_ 


27 



28 



29 



30 



31 



32 



33 



34 



35 
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RIGHT ANGLED 
TRIANGLES 

Length of one short side from other two sides 



b = Jh 2 - a 2 

Execution: 
a / RUN / h/ RUN / 


X 

• 

00 

— 

F 

01 

( 

6 

02 

stop 

0 

03 

X 

• 

04 

) 

6 

05 

— 

F 

06 

= 

— 

07 

VX 

1 

08 

stop 

0 

09 

A 

A 

10 

goto 

2 

11 

0 

0 

12 

0 

0 

13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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PARALLELOGRAMS 



Area = ab sin 6 
Execution: 

a / RUN / b / RUN / 0° / RUN / area 

For d in radians, insert / ▼ / R-*D / between 
steps 04 and 05. 


X 

• 

00 

stop 

0 

01 

X 


02 

( 

6 

03 

stop 

0 

04 

— 

F 

05 

# 

3 

06 

9 

9 

07 

0 

0 

08 

= 

— 

09 

T 

A 

10 

D->R 

3 

11 

COS 

8 

12 

) 

6 

13 

= 

— 

14 

stop 

0 

15 

▼ 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 






























































































SPHERES 

Surface area and volume 


A = 47rr 2 

Execution: 

radius/ RUN / surface area/ RUN / volume 


X 


00 

{ 

6 

01 

X 

V 

02 

X 

• 

03 

# 

3 

04 

1 

1 

05 

2 

2 

06 

* 

A 

07 

5 

5 

08 

6 

6 

09 

6 

6 

10 

3 

3 

11 

7 

7 

12 

1 

1 

13 

= 

— 

14 

stop 

0 

15 

) 

6 

16 

-r 

G 

17 

# 

3 

18 

3 

3 

19 

=5 

— 

20 

stop 

0 

21 


A 

22 

goto 

2 

23 

0 

0 

24 

0 

0 

25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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SPHERES 


Radius from volume 


/3V 
f 3 7 4 tt 

Execution: 

V/RUN / r 


X 

* 

00 

# 

3 

01 


A 

02 

2 

2 

03 

3 

3 

04 

8 

8 

05 

7 

7 

06 

3 

3 

07 

2 

2 

08 

4 

4 

09 

= 


10 

In 

4 

11 

-r 

G 

12 

# 

3 

13 

3 

3 

14 

= 

— 

15 

▼ 

A 

16 

e x 

4 

17 

stop 

0 

18 

w 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



l 23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



j 34 



35 
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CYLINDERS 



Volume = 7rr 2 h 

Area of curved surface = 27rrh 

Total surface area = 2nr(r + h) 

Execution: 

r / RUN / h / RUN / volume/ RUN / area of 
curved surface / RUN / total surface area 


sto 

2 

00 

X 

• 

01 

X 

• 

02 

# 

3 

03 

6 

6 

04 

• 

A 

05 

2 

2 

06 

8 

8 

07 

3 

3 

08 

1 

1 

09 

8 

8 

10 

5 

5 

11 

3 

3 

12 

+ 

E 

13 

( 

6 

14 

-f 

G 

15 

# 

3 

16 

2 

2 

17 

X 

• 

18 

stop 

0 

19 


G 

20 

stop 

0 

21 

rcl 

5 

22 

+ 

E 

23 

) 

6 

24 

stop 

0 

25 

= 

— 

26 

stop 

0 

27 

▼ 

A 

28 

goto 

2 

29 

0 

0 

30 

0 

0 

31 



32 



33 



34 



35 


86 


HOLLOW 

CYLINDRICAL TUBE 



Area of curved surface = 27rh(R + r) 
Volume = 7 rh( R 2 — r 2 ) 

Execution: 

R/RUN/r/RUN/h/RUN/are 

surface / RUN / volume 


+ 

E 

00 

stop 

0 

01 

sto 

2 

02 

4- 

G 

03 

# 

3 

04 

2 

2 

05 

— 

F 

06 

Y 

A 

07 

MEx 

5 

08 

= 

— 

09 

▼ 

A 

10 

MEx 

5 

11 

X 

• 

12 

stop 

0 

13 

X 

• 

14 

# 

3 

15 

1 

1 

16 

2 

2 

17 

• 

A 

18 

5 

5 

19 

6 

6 

20 

6 

6 

21 

X 

• 

22 

stop 

0 

23 

rcl 

5 

24 

= 

— 

25 

stop 

0 

26 

T 

A 

27 

goto 

2 

28 

0 

0 

29 

0 

0 

30 



31 



32 



33 



34 



35 
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RIGHT CIRCULAR 
CONE 



Volume = 


7rr 2 h 

~3 


Curved surface area = nxjx 2 + h 2 
Total surface area = nr (r +Vr 2 + h 2 ) 


Execution: 

h/RUN /r/RUN / / 

at / rcl / / RUN / 

/ RUN / 


X 

• 

00 

( 

6 

01 


G 

02 

stop 

0 

03 

sto 

2 

04 

X 

• 

05 

+ 

E 

06 

# 

3 

07 

1 

1 

08 

= 

— 

09 

V*" 

1 

10 

T 

A 

11 

MEx 

5 

12 

X 

* 

13 

X 

. 

14 

# 

3 

15 

3 

3 

16 


A 

17 

1 

1 

18 

4 

4 

19 

1 

1 

20 

6 

6 

21 

X 


22 

T 

A 

23 

MEx 

5 

24 

+ 

E 

25 

stop 

0 

26 

= 

— 

27 

stop 

0 

28 

rcl 

5 

29 

) 

6 

30 


G 

31 

# 

3 

— 

32 

3 

3 

33 

= 

-1 

34 

stop 

0 

35 
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RECTANGULAR 

PARALLELEPIPED 



Diagonal: 

d = ^/a 2 + b 2 + c 2 

Execution: 

a/RUN/b/RUN/c/RUN/ 


X 

* 

00 

+ 

E 

01 

( 

6 

02 

stop 

0 

03 

X 

* 

04 

) 

6 

05 

+ 

E 

06 

( 

6 

07 

stop 

0 

08 

X 

* 

09 

) 

6 

10 

= 

— 

11 

V * - 

1 

12 

stop 

0 

13 

T 

A 

14 

goto 

2 

15 

0 

0 

16 

0 

0 

00 





19 



20 



\tt\ 



22 



23 



24 



25 



26 

1——J 



27 



28 



29 



o <- 
00 00 



32 



33 


34 


35 
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RECTANGULAR 

PARALLELEPIPED 

Surface area 


A = 2(ab + ac + be) 

Execution: 

a/RUN/b/RUN/c/RUN/ 


sto 

2 

00 

stop 

0 

01 

+ 

E 

02 

( 

6 

03 

X 

• 

04 

rcl 

5 

05 

= 

— 

06 

▼ 

A 

07 

MEx 

5 

08 

) 

6 

09 

X 

• 

10 

stop 

0 

11 

+ 

E 

12 

rcl 

5 

13 

+ 

E 

14 

= 


15 

stop 

0 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 

34 



35 
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DISTANCE BETWEEN 
TWO POINTS IN SPACE 


d = y( Xl - x 2 ) 2 + (y, - y 2 ) 2 + (z, - z 2 ) 2 
points are (x^y^zj and (x 2 ,y 2 ,z 2 ) 

Execution: 

x, / RUN / x 2 / RUN / y, / RUN / y 2 / RUN / 
Z-| / RUN / z 2 / RUN / 


— 

F 

00 

stop 

0 

01 

X 

• 

02 

+ 

E 

03 

( 

6 

04 

stop 

0 

05 

— 

F 

06 

stop 

0 

07 

X 

• 

08 

) 

6 

09 

+ 

E 

10 

( 

6 11 

stop 

0 

12 

— 

F 

13 

stop 

0 

14 

X 

• 

15 

) 

6 

16 

= 

— 

17 

V)T 

1 

18 

stop 

0 

19 

T 

A 

ro 

o 

goto 

2 

21 

0 

0 

22 

0 

0 

23 



24 



25 



26 



27 



28 



29 




31 

32 

33 



34 



35 
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CONVERSION' 

Polar to cartesian 


6 in radians, — n < 6 < it, 6 ¥= 0 
Execution: 

r/RUN / 6 /RUN / /RUN/ 
If d = 0, x = r and y = 0 
If 6 = Jr, x = — r and y = 0 


X 

• 

00 

( 

6 

01 

stop 

0 

02 

-r 

G 

03 

# 

3 

04 

2 

2 

05 

= 

— 

06 

tan 

9 

07 

sto 

2 

08 

~ 

G 

09 

+ 

E 

10 

rcl 

5 

11 

-T 

G 

12 

+ 

E 

13 

) 

6 

14 

= 

- 

15 


A 

16 

MEx 

5 

17 

— 

F 

18 

( 

6 

19 


G 

20 

) 

6 

21 

-T 

G 

22 

# 

3 

23 

2 

2 

24 

— 

F 

25 

X 

• 

26 

rcl 

5 

27 


— 

28 

stop 

0 

29 

rcl 

5 

30 

stop 

0 

31 

= 


32 

= 

— 

33 

= 

— 

34 

= 

— 1 

35 
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COORDINATE 

CONVERSION 

Cartesian to polar 


Restriction: y =£ 0 

If y = 0, r= |x| 
and 6 = 0 if x > 0 
7T if x < 0 

Execution: 

x/RUN/y/RUN / /RUN/ 


-r 

G 

00 

( 

6 

01 

X 

• 

02 

-r 

G 

03 

stop 

0 

04 

sto 

2 

05 

+ 

E 

06 

rcl 

5 

07 

X 

• 

08 

rcl 

5 

09 

= 

— 

10 

N/x- 

1 

11 

stop 

0 

12 

) 

6 

13 

+ 

E 

14 

# 

3 

15 

1 

1 

16 

-r 

G 

17 

# 

3 

18 

2 

2 

19 

= 

__ 

20 


1 

21 

▼ 

A 

22 

arccos 

8 

23 

+ 

E 

24 

X 

* 

25 

( 

6 

26 

rcl 

5 

27 

X 


28 

-r 

G 

29 


1 30 

rcl 

5 

31 

) 

6 

32 



33 

stop 

0 

34 

= 

— 

35 

___! 
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RADIUS 

OF CURVATURE 



X 

• 

00 

+ 

E 

01 

# 

3 

02 

1 

1 

03 

X 


04 

( 

6 

05 


1 

06 

) 

6 

07 

-r 

G 

08 

stop 

0 

09 

= 

— 

10 

stop 

0 

11 

▼ 

A 

12 

goto 

2 

13 

0 

0 

14 

0 

0 

15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 

1 i 



29 



30 



31 



32 



33 



34 



35 
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HAVERSINE AND 
INVERSE HAVERSINE, 
VERSINE 
ANDSUVERSINE 


Haversine: 

pre-execution: at / at /goto/0/0/ 

Execution: 

0° / RUN / 

1 + 1=1 1 - 1 + 121=1 

Inverse haversine: 

pre-execution: at / at / goto / 1 / 4 / 

Execution: 

hav 0 / RUN / 

vers 0 1 + 121=1 RUN / 

suvers 0/- / + /2/*/2/ = /RUN/ 

Range O<0° < 180 

For vers 0 see post and pre-execution. 


▼ 

A 

00 

D->R 

3 

01 

-r 

G 

02 

# 

3 

03 

2 

2 

04 

= 

_ 

05 

sin 

7 

06 

X 


07 


— 

08 

stop 

0 

09 

V 

A 

10 

goto 

2 

11 

0 

0 

12 

0 

0 

13 


1 

14 

I 

A 

15 

arcsin 

7 

16 

+ 

E 

17 

i 

= 

- 

18 

V 

A 

19 

R^D 

6 

20 

stop 

0 

21 

T 

A 

22 

goto 

2 

23 

1 

1 

24 

4 

4 

25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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AREA OF A 
SPHERICAL 
TRIANGLE 



Area = (A + B + C — 7r) R 2 
A, B, C in degrees 
Execution: 

A/ RUN /B / RUN /C / RUN / R / RUN / 


4- 

E 

00 

stop 

0 

01 

+ 

E 

02 

stop 

0 

03 

— 

F 

04 

# 

3 

05 

1 

1 

06 

8 

8 

07 

0 

0 

08 

= 

— 

09 

▼ 

A 

10 

D-^R 

3 

11 

X 


12 

( 

6 

13 

stop 

0 

14 

X 


15 

) 

6 

16 


; — 

17 

stop 

0 

18 

▼ 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 

| I 


I 

25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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SPHERICAL 
TRIANGLES:SINE RULE 


sin A _ sin B _ sin C 
sin a sin b sin c 

Angles in degrees 

Execution: 

a/RUN/A/RUN/B/RUN/ / C / 

RUN / 
or 

A/RUN/a/RUN/b/RUN/ /c/ 

RUN / 

Note: If a result of 0 appears, the final arcsin 
had an out-of-range argument and the result is 
impossible for the particular angles given, or 
else very close to 90°. 

For angle A > 90°, compute using 
180 / — / A / = / etc. 



Special execution: navigation 

To find course from place 2 to place 1 
. 0 _ sin (Et — E 2 ) cos N 2 


Execution: 

Ei/-/E 2 /RUN/d/RUN/90/-/N 2 / = / 
RUN /C 

where E, = easterly longitude of place 1 
E 2 = easterly longitude of place 2 
N 2 = north latitude of place 2 
d = angular distance between places 
1 and 2 

(For westerly longitudes or south latitudes, 
change sign of angle.) 


▼ 

A 

00 

D^R 

3 

01 

sin 

7 

02 

4- 

G 

03 

( 

6 

04 

stop 

0 

05 

▼ 

A 

06 

D^R 

3 

07 

sin 

7 

08 

> 

6 

09 

X 


10 

sto 

2 

11 

( 

6 

12 

stop 

0 

13 

▼ 

A 

14 

D^R 

3 

15 

sin 

7 

16 

> 

6 

17 

= 

— 

18 

T 

A 

19 

arcsin 

7 

20 

▼ 

A 

21 

R-+D 

6 

22 

stop 

0 

23 

▼ 

A 

24 

D-*R 

3 

25 

sin 

7 

26 

X 

• 

27 

rcl 

5 

28 

▼ 

A 

29 

goto 

2 

30 

4 

1 

31 

8 ■- 

8 

32 



33 

* 4 


34 



35 
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SPHERICAL 

TRIANGLES: 

Cosine Rule 



cos a = cos b (cos c + sin c tan b cos A) 
Execution: 

c/RUN/A/RUN/b/RUN/b/RUN/ 
Navigation 

To find great circle distance between places 
1 and 2 

1. Latitude N, longitude E, (—ve if W) 

2. Latitude N 2 longitude E 2 (—ve if W) 

Execution: 

90 / - / N 2 / = / RUN / E, / — / E 2 / RUN / 90 / 
— / N-, / RUN / 90 / — / N t / RUN / (degrees) 

X /111-19 / = / 
or X / 69-41 / = / 

For angles greater than 90° use appropriate 
reductions to first quadrant. 


▼ 

A 

00 

D->R 

3 

01 

sto 

2 

02 

sin 

7 

03 

X 

• 

04 

( 

6 

05 

stop 

0 

06 

v 

A 

07 

D->R 

3 

08 

COS 

8 

09 

) 

6 

10 

X 

• 

11 

( 

6 

12 

stop 

0 

13 

▼ 

A 

14 

D->R 

3 

15 

tan 

9 

16 

) 

6 

17 

+ 

E 

18 

( 

6 

19 

rcl 

5 

20 

cos 

8 

21 

) 

6 

22 

X 

* 

23 

( 

6 

24 

stop 

0 

25 

▼ 

A 

26 

D-*R 

3 

27 

COS 

8 

28 

) 

6 

29 

= 

— 

30 

V 

A 

31 

arccos 

8 

32 

T 

A 

33 

R-»D 

6 

34 

stop 

0 

35 
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SPHERICAL 

TRIANGLES 

The Cosine Rule — to find an angle or side given 
three sides or angles 



cos A = 


cos a — cos b cos c 
sin b sin c 


cos a = 


cos A + cos B cos C 
sin B sin C 


Execution: 

Angles in radians 

c/ RUN / b / RUN /-/RUN /a /RUN/ 
C / RUN / B / RUN / RUN / A / RUN / 

For angles in degrees use 
at / at / D-^-R / after each angle. 


sto 

2 

00 

sin 

7 

01 

T 

A 

02 

MEx 

5 

03 

COS 

8 

04 

X 

• 

05 

( 

6 

06 

stop 

0 

07 

sin 

7 

08 

X 

• 

09 

▼ 

A 

10 

MEx 

5 

11 

= 

— 

12 

T 

A 

13 

MEx 

5 

14 

X 

• 

15 

— 

F 

16 

# 

3 

17 

1 

1 

18 

— 

F 

19 

) 

6 

20 

stop 

0 

21 

+ 

E 

22 

( 

6 

23 

stop 

0 

24 

cos 

8 

25 

) 

6 

26 

-f 

G 

27 

rcl 

5 

28 

= 

— 

29 

▼ 

A 

30 

arccos 

8 

31 

stop 

0 

32 

= 

— 

33 

= 

— 

34 

= 

— 

35 


































































































































SPHERICAL 

TRIANGLES: 

Half-angle tangent formula 



y sin (s — b) sin (s — c) 
sin (s — a) sin s 


, a + b + c 

where s = 


a^ _ / cos <7r — S) cos (S — A) 

tan 2 J cos (S — B) cos (S — C) 


where S = 


A + B + C 
2 


Execution: 

Angles in radians 

a/ + /b/ + /c/RUN / b/RUN / a/ RUN / 


For the cosine version change all / sin / steps 
to / cos /. 


sto 

2 

00 

-r 

G 

01 

# 

3 

02 

2 

2 

03 

— 

F 

04 

V 

A 

05 

MEx 

5 

06 

= 

— 

07 

sin 

7 

08 

-r 

G 

09 

( 

6 

10 

rcl 

5 

11 

sin 

7 

12 

> 

6 

13 

X 

* 

14 

( 

6 

15 

stop 

0 

16 

— 

F 

17 

rcl 

5 

18 

= 

— 

19 

sin 

7 

20 

) 

6 

21 

~r 

G 

22 

( 

6 

23 

stop 

0 

24 

— 

F 

25 

rcl 

5 

26 

= 

— 

27 

sin 

7 

28 

> 

6 

29 

= 

— 

30 


1 

31 

T 

A 

32 

arctan 

9 

33 

+ 

E 

34 

stop 

0 

35 
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SPHERICAL 

TRIANGLES 

Solving the PZX triangle 



hav ZX = hav (PX ~ PZ) + sin PX sin PZ hav ^ZPX 

= hav (L ~ D) + cos L cos D hav LZPX 

(for the second formula use cos at steps 10 and 
27 instead of sin) 

ZX is the calculated zenith distahce (CZD) 

Enter south latitudes as —ve 

Execution: 

Angles in radians — 

LZPXI RUN/PX/RUN / PZ/RUN / + / = / 
Angles in degrees — 

LZPX° / at / at / D^R / RUN / PX° / at / 

AT / D-»R / RUN / PZ° / AT / AT / D->R / 

RUN / + /= / AT / AT / R-*D / 

Intercept I = CZD — TZD 

(calculated — true zenith distance) 

Post-execution: 

/ — / TZD / X / 60 / = / 

(I in minutes of arc or miles approx.) 


-r 

G 

00 

+ 

E 

01 


G 

02 

_ 


03 

sin 

7 

04 

X 

* 

05 

X 

* 

06 

( 

6 

07 

stop 

0 

08 

sto 

2 

09 

sin 

7 

10 

) 

6 

11 

X 

• 

12 

( 

6 

13 

stop 

0 

14 

— 

F 

15 

V 

A 

16 

MEx 

5 

17 

-f 

G 

18 

# 

3 

19 

2 

2 

20 

= 

— 

21 

sin 

7 

22 

X 

* 

23 


— 

24 

!' 

T 

A 

25 

MEx 

5 

26 

sin 

7 

27 

) 

6 

28 

+ 

E 

29 

rcl 

5 

30 

= 

— 

31 


1 

32 

▼ 

A 

33 

arcsin 

7 

34 

stop 

0 

35 
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03 
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28 
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29 

30 



31 



32 
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How to use these programs 

Each program is arranged as follows: 

1. On the left of the page, explanatory information and the 
'execution sequence', the sequence of keystrokes necessary for 
running the program. Results displayed are printed in gold. 

2. In the first column on the right hand side of the page, the 
sequence of keystrokes which make up the program. 

3. In the second and third columns on the right hand side of the 
page, the program in check symbol and step number form 
(see section on checking the program). 


Notes 

1. Where a key has more than one function, the relevant function is 
printed as the keystroke in the first colymn 

cos 


2 . 

3. 

4. 


e.g. the keystroke 8 may appear as 8, cos or arccos. 


The symbol ▼ within a program always refers to the key | •/££/- 

ChN/# 

The symbol # refers to 


The abbreviation gin is 'go if neg' and so refers to the key [T] 


go if neg 


Entering the program 


To enter a program into the calculator: 


1 . 


2 . 

3. 


4. 


Press 


AT 


▲V 


2 _ 
go to 




Press j^J 


learn 

RUN 


Press the sequence of keys for 
the program as shown in the 
first column of the program 
page. 


Press 


C/CE 


Display shows step programmed 
at 00 in check symbol form as 
described below. 

No change in display. 

At each stage the step about to 
be overwritten is displayed. 
When the machine is first 
switched on every step is zero. 

Normal number display is 
resumed. 


5. 


Press 





2 _ 
go to 




The step programmed at 00 will 
be displayed. 


Checking the program 


Each of the programs in the library is shown in check symbol form in 
the second column on the right-hand side of the page. 

step 


Press 




C/CE 


repeatedly, and at each stage the check symbol will 


appear on the left of the display with the step number on the right. 
Ignore the four zeros in the display. 


e.g. a. oooo 03 

check step 

symbol number 


After stepping through the program, press 

fT] |~o| [~o] before execution. 


AT 


AT 


go to 


Finally, press | C/ce | and the program is ready for use. 


Correcting the program 


If the check symbol for a particular step number is not as indicated 
in the last two columns of the program page: 

1 . 


5. 


Press 


AT 


AT 


go to 


2 . 

3. 


followed by the step number if the appropriate step number is 
not already displayed. 

learn 

Press 


AT 


RUN 


Enter the correct keystroke. The display will then show the next 
step in the program, if this is also incorrect, enter the correct 
keystroke. At each stage, the step about to be overwritten will be 
displayed. 


4. When correction has been completed, press c /ce . Any step 


which has not been overwritten will not be affected. 
Press 


AT 


AT 


go to 


Note 

To restore normal u se of the calculator after entering or checking 
the program, press [c/ce 


Running the program 

Press the sequence of keys as shown in the program library in the 
execution sequence. Results displayed are printed in gold. 
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PROJECTILES 

Position relative to point of projection after 
time t 


y 



x = v D t cos 0 


■ a 9 t2 

y = v 0 t sin 0 - -- 


Execution: 

0° / RUN /v G / RUN /t/ RUN /x/ RUN /y 
In S.l. units; g taken as 9-81 ms" 2 . 


▼ 

A 

00 

D-+R 

3 

01 

sto 

2 

02 

tan 

9 

03 

X 

• 

04 

( 

6 

05 

rcl 

5 

06 

COS 

8 

07 

X 

• 

08 

stop 

0 

09 

X 

• 

10 

stop 

0 

11 

sto 

2 

12 

) 

6 

13 

stop 

0 

14 

— 

F 

15 

( 

6 

16 

rcl 

5 

17 

X 

• 

18 

X 

• 

19 

# 

3 

20 

4 

4 

21 

• 

A 

22 

9 

9 

23 

0 

0 

24 

5 

5 

25 

= 

— 

26 

) 

6 

27 

= 

— 

28 

stop 

0 

29 


A 

30 

goto 

2 

31 

0 

0 

32 

0 

0 

33 



34 



35 
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PROJECTILES 

Range, maximum height and time of flight 


T = — sin 0 
9 

R = ^2 sin 0 cos 0 
9 


H = ^2-sin 2 0 
2g 


Execution: 


0° / RUN / v c / RUN / time of flight / RUN / 
maximum height / RUN / range 

In S.l. units; g taken as 9-81ms" 2 . 


▼ 

A 

00 

D-»R 

3 

01 

sto 

2 

02 

sin 

7 

03 

X 

• 

04 

stop 

0 

05 

X 

• 

06 

# 

3 

07 

• 

A 

08 

2 

2 

09 

0 

0 

10 

4 

4 

11 

X 

• 

12 

stop 

0 

13 

X 

• 

14 

# 

3 

15 

1 

1 

16 

• 

A 

17 

2 

2 

18 

2 

2 

19 

6 

6 

20 

~~ » 

G 

21 

stop 

0 

22 

( 

6 

23 

rcl 

5 

24 

tan 

9 

25 

) 

6 

26 

+ 

E 

27 

+ 

E 

28 

= 

~ 

29 

stop 

0 

30 


A 

31 

goto 

2 

32 

0 

0 

33 

0 

0 

34 



35 
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PROJECTILES 

Necessary angle of projection for given range 
with given speed of projection 


sin 2a = giving two possible angles a-, and 0 ' 2 - 
Execution: 

v/ RUN / R / RUN / a° / RUN / a° 

In S.l. units; g taken as 9-81 ms" 2 . 


X 

• 

00 

-r 

G 

01 

X 

• 

02 

# 

3 

03 

9 

9 

04 

• 

A 

05 

8 

8 

06 

1 

1 

07 

X 

• 

08 

stop 

0 

09 

= 

— 

10 

T 

A 

11 

arcsin 

7 

12 

▼ 

A 

13 

R-*D 1 

3 

14 

-T 

G 

15 

# 

3 

16 

2 

2 

17 


F 

18 

stop 

0 

19 

# 

3 

20 

9 

9 

21 

0 

0 

22 

— 

F 

23 

= 

— 

24 

stop 

0 

25 

T 

A 

26 

goto 

2 

27 

0 

0 

28 

0 

0 

29 



30 



31 



32 



33 



34 



35 
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PARALLELOGRAM 
LAW FOR FORCES 


R = VP 2 + Q 2 + 2PQ cos a 
Execution: 

P / RUN / Q / RUN / a° / RUN / R 

Range: 0<a° < 180° 

E may appear if a is close to 0° or 180° 


sto 

2 

00 

stop 

0 

01 

X 

• 

02 

( 

6 

03 

+ 

E 

04 

rcl 

5 

05 

=• 

— 

06 

▼ 

A 

07 

MEx 

5 

08 

) 

6 

09 

X 

• 

10 

( 

6 

11 

stop 

0 

12 

— 

F 

13 

# 

3 

>14 

9 

9 

15 

0 

0 

16 

— 

F 

17 

= 

— 

18 

▼ 

A 

19 

D^R 

3 

20 

sin 

7 

21 

— 

F 

22 

# 

3 

23 

1 

1 

24 

+ 

E 

25 

> 

6 

26 

+ 

E 

27 

( 

6 

28 

rcl 

5 

29 

X 

• 

30 

) 

6 

31 

= 

— 

32 

VF 

1 

33 

stop 

0 

34 

= 

— 

35 
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CONSTANT 

ACCELERATION 

MOTION 


u = initial velocity 
v = final velocity 
s = distance covered 
f = acceleration 
t = time 

v = u + ft 


s = 



Execution: 

t/RUN/f/RUN/u/RUN /v/RUN /s 


X 

• 

00 

( 

6 

01 

X 

• 

02 

stop 

0 

03 

*T* 

G 

04 

# 

3 

05 

2 

2 

06 

+ 

E 

07 

sto 

2 

08 

+ 

E 

09 

stop 

0 

10 

— 

F 

11 

stop 

0 

12 

rci 

5 

13 

) 

6 

14 

s 

— 

15 

stop 

0 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


12 


CONSTANT 

ACCELERATION 

MOTION 


For notation see page 12 
v = \/u 2 + 2fs 
Execution: 

u/RUN/f/RUN /s/RUN /v 

This gives the absolute value of v; other 
considerations must be used to determine the 
correct sign. 


X 

• 

00 

+ 

E 

01 

( 

6 

02 

stop 

0 

03 

X 

• 

04 

stop 

0 

05 

+ 

E 

06 

) 

6 

07 

= 

— 

08 

VF 

1 

09 

stop 

0 

10 

W 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


13 



















































































CONSTANT 

ACCELERATION 

MOTION 


For notation see page 12 


(i) t = 


v — u 


s = 


v 2 -u 2 


2f 


Execution: 

v/ RUN/u/RUN/f/RUN /t/ RUN /s 


(ii) f = 


v — u 
t 


Execution: 

v/ RUN/u/RUN /t/RUN / f/ RUN 


OH) f = 


v 2 — u 2 
2s 


Execution: 

v/ RUN / u/ RUN / s/ RUN / RUN / f 


— 

F 

00 

stop 

0 

01 

sto 

2 

02 

- 7 - 

G 

03 

( 

6 

04 


G 

05 

# 

3 

06 

2 

2 

07 

+ 

E 

08 

rcl 

5 

09 

= 

— 

10 

sto 

2 

11 

stop 

0 

12 

) 

6 

13 

X 

• 

14 

stop 

0 

15 

rcl 

5 

16 

= 

— 

17 

stop 

0 

18 

V 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


14 


PLANETARY MOTION 



Kepler's law: 

orbit is an ellipse with sun at one focus. 

p bVl — e 2 _ b 2 
1 + e cos d 1 + e cos 6 a(1+ecos0)' 



Execution: 

0° / RUN / e / RUN / p / RUN / r 


X 

• 

00 

= 

— 

01 

Vx~ 

1 

02 

— 

F 

03 

# 

3 

04 

9 

9 

05 

0 

0 

06 

— 

F 

07 

= 


08 

V 

A 

09 

D^R 

3 

10 

sin 

7 

11 

X 

• 

12 

stop 

0 

13 

+ 

E 

14 

# 

3 

15 

1 

1 

16 


G 

17 

X 

• 

18 

stop 

0 

19 

= 

— 

20 

stop 

0 

21 

V 

A 

22 

goto 

2 

23 

0 

0 

24 

0 

0 

25 



26 



27 



28 

29 

30 

31 
37 

33 

34 

31) 


lt> 



























































































PLANETARY MOTION 


For notation see page 15 
Execution: 

0°/ RUN/e/RUN/b/RUN /r 


X 

• 

00 

= 

— 

01 

VST 

1 

02 

— 

F 

03 

# 

3 

04 

9 

9 

05 

0 

0 

06 

— 

F 

07 

= 

— 

08 

V 

A 

09 

D-*R 

3 

10 

sin 

7 

11 

X 

• 

12 

stop 

0 

13 

sto 

2 

14 

+ 

E 

15 

# 

3 

16 

1 

1 

17 

-r 

G 

18 

X 

* 

19 

( 

6 

20 

rcl 

5 

21 

X 

• 

22 

— 

F 

23 

+ 

E 

24 

# 

3 

25 

1 

1 

26 

= 

— 

27 

v/F 

1 

28 

) 

6 

29 

X 

• 

30 

stop 

0 

31 

= 

— 

32 

stop 

0 

33 

= 

— 

34 

= 

— 

35 


16 


PLANETARY MOTION 


For notation see page 15 
Execution: 

b/ RUN/a/RUN 16 °/RUN /r 


sto 

2 

00 

“ 

G 

01 

stop 

0 

02 

X 

• 

03 

▼ 

A 

04 

MEx 

5 

05 

= 

— 

06 

V 

A 

07 

MEx 

5 

08 

▼ 

A 

09 

arcsin 

7 

10 

cos 

8 

11 

X 

• 

12 

( 

6 

13 

stop 

0 

14 

X 

• 

15 

= 

— 

16 


1 

17 

— 

F 

18 

# 

3 

19 

9 

9 

20 

0 

0 

21 

— 

F 

22 

= 

— 

23 

V 

A 

24 

D^R 

3 

25 

sin 

7 

26 

) 

6 

27 

+ 

E 

28 

# 

3 

29 

i 

1 

30 

-f 

G 

31 

rcl 

5 

32 


G 

33 

= 

— 

34 

stop 

0 

35 


17 



























































































DOPPLER EFFECT 
(non-relativistic) 

For sound waves, etc. 


v 0 = observer velocity 
v s = source velocity 
f s = transmitted frequency 
f c = observed frequency 
c = velocity of wave 

Given observed frequency, to find 
transmitted frequency. 



Execution: 

c/ RUN / v c / RUN / v s / RUN / f„ / RUN/f s 


sto 

2 

00 

+ 

E 

01 

stop 

0 

02 

-r 

G 

03 

( 

6 

04 

rci 

5 

05 

— 

F 

06 

stop 

0 

07 

) 

6 

08 

X 

• 

09 

stop 

0 

} iO 

= 

— 

11 

stop 

0 

12 

▼ 

A 

13 

goto 

2 

14 

0 

0 

15 

0 

0 

16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


18 


DOPPLER EFFECT 
(non-relativistic) 


For notation see page 18 

Given transmitted frequency, to find 
observed frequency. 

Execution: 

c / RUN / v s / RUN / v Q / RUN / f s / RUN / f Q 


sto 

2 

00 

— 

F 

01 

stop 

0 

02 

-r 

G 

03 

( 

6 

04 

stop 

0 

05 

+ 

E 

06 

rcl 

5 

07 

) 

6 

08 

X 

• 

09 

stop 

0 

id 

= 

' — 

11 

stop 

0 

12 

T 

A 

13 

goto 

2 

14 

0 

0 

15 

0 

0 

16 



17 



18 



19 



20 



21 



22 



23 



24 



125 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


19 
























































































DOPPLER EFFECT 
(non-relativistic) 


For notation see page 18 

Given both frequencies, to find source 
velocity. 

Execution: 

c/ RUN /v 0 / RUN /f 0 / RUN / f s / RUN / v. 


— 

F 

00 

( 

6 

01 

+ 

E 

02 

stop 

0 

03 

X 

• 

04 

stop 

0 

05 

— 

G 

06 

stop 

0 

07 

) 

6 

08 

= 

— 

09 

stop 

0 

10 

V 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


20 


DOPPLER EFFECT 
(relativistic) 

(Red shift or blue shift) 


f s = source frequency 
f Q = observed frequency 
c = speed of light = 2’997925 x 10 s ms' 1 
v = speed of source 

0 = direction of motion of source relative to 
observer 



c 


Execution: 

(i) v/ RUN /c / RUN / 0 / RUN /f. / X / 
RUN /f 0 

(ii) v/RUN/c/RUN 16 / RUN / f c / + / 
RUN /f s 


-r 

G 

00 

stop 

0 

01 

X 

• 

02 

sto 

2 

03 

( 

6 

04 

stop 

0 

05 

X 

• 

06 

= 

— 

07 


1 

08 

— 

F 

09 

# 

3 

10 

9 

9 

11 

0 

0 

12 

= 

— 

13 

V 

A 

14 

D^R 

3 

15 

sin 

7 

16 

> 

6 

17 

+ 

E 

18 

# 

3 

19 

i 

1 

20 

-r 

G 

21 

X 

• 

22 

( 

6 

23 

rcl 

5 

24 

W 

A 

25 

a resin 

7 

26 

cos 

8 

] 27 

) 

6 

28 

= 

— 

29 

sto 

2 

30 

stop 

0 

31 

rcl 

5 

32 

= 

— 

33 

stop 

0 

34 

= 

— 

35 


21 































































































DOPPLER EFFECT 
(relativistic) 

(Red shift or blue shift) 


Source receding from observer at velocity v. 
Source frequency f s , observed frequency f 0 . 



Given v and one frequency, to find the other 
frequency. 

Execution: 

(i) v / RUN / c / RUN / f s / X / RUN / f 0 

(ii) v / RUN / c / RUN / f 0 / -r / RUN / f s 


-r 

G 

00 

stop 

0 

01 

— 

F 

02 

# 

3 

03 

1 

1 

04 

■f 

G 

05 

( 

6 

06 

+ 

E 

07 

# 

3 

08 

2 

2 

09 

— 

F 

10 

) 

6 

11 

= 

— 

12 

V3T 

1 

13 

sto 

2 

14 

stop 

0 

15 

rcl 

5 

16 

= 

— 

17 

stop 

0 

18 

T 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 j 



34 



35 


22 


DOPPLER EFFECT 
(relativistic) 

(Red shift or blue shift) 


To find v, given f 0 and f s . 

Execution: 

f 0 / RUN / f s / RUN / c / RUN / v 
If the wavelengths X G and X s are known: 
Execution: 

X,/ RUN / X 0 / RUN / c / RUN / v 

If v is negative, motion is towards observer. 


-r 

G 1 

DO 

stop 

0 i 

01 

X 

• 1 

02' 

— 

F ' 

03 

# 

3 

04 

1 

1 

05 

*r 

G 

06 

( 

6 

07 

+ 

E 

08 

# 

3 

09 

2 

2 

10 

— 

F 

11 

) 

6 

12 

X 

• 

13 

stop 

0 

14 

= 

— 

15 

stop 

0 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


23 

































































































RELATIVITY 

Fitzgerald contraction, time dilation 
and mass change. 



Execution: 


(i) v/ RUN /c / RUN / T/X/RUN/T' 

(ii) v/ RUN /c / RUN / L / X / RUN / L' 

(iii) v / RUN / c / RUN/M/^ / RUN / M' 


■4 

G 

00 

stop 

0 

01 

X 

• 

02 

— 

F 

03 

+ 

E 

04 

# 

3 

05 

1 

1 

06 

= 

— 

07 

yT 

1 

08 

sto 

2 

09 

stop 

0 

10 

rcl 

5 

11 

= 

— 

12 

stop 

0 

13 

T 

A 

14 

goto 

2 

15 

0 

0 

16 

0 

0 

17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 t 



34 



35 


24 


LORENTZ 

TRANSFORMATION 


(i) X' = 


(ii) T' = 


X-j3cT 

T _0X 

c 


Vi -P 


where B = — 
c 


fa) Units such that c = 1 
Execution: 

(i) j3 / RUN/X / RUN/T / RUN / X' 

(ii) j3 / RUN/T / RUN/X / RUN / T' 

fa) Any consistent units 
Execution: 

(i) v/-/c/ = /RUN/X/RUN/T/ 
X/c/ RUN / X' 

(ii) v/ - ^ / c / = / RUN/T / RUN/X/ 
■*■ / c / RUN/T' 


▼ 

A 

00 

arcsin 

7 

01 

sto 

2 

02 

cos 

8 

03 

4- 

G 

04 

X 

i 

05 

stop 

0 

06 

— 

F 

07 

( 

6 

08 

rcl 

5 I 

09 

tan 

9 

10 

X 

• 

11 

stop 

0 

12 

) 

6 

13 

= 

— 

14 

stop 

0 

15 

Y 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


25 






























































































COMPOUND 

PENDULUM 


T = period 

k Q = radius of gyration about pivot 
k g = radius of gyration about c.g. 
r = distance from pivot to c.g. 

I = length of simple equivalent pendulum 

T _ 2*k 0 k| 

~v^r 

Execution: 

r/RUN/k 0 /RUN/T/RUN/I 
In S.l. units; g taken as 9 81ms" 2 . 


V>T 

1 

00 

-r 

G 

01 

X 

• 

02 

stop 

0 

03 

X 

• 

04 

sto 

2 

05 

# 

3 

06 

2 

2 

07 

• 

A 

08 

0 

0 

09 

0 

0 

10 

6 

6 

11 

1 

1 

12 

= 

— 

13 

stop 

0 

14 

rcl 

5 

15 

X 

• 

16 

= 

— 

17 

stop 

0 

18 

▼ 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


26 


COMPOUND 

PENDULUM 


Notation as on page 26 
Use k„ = v /k 2 + r 2 
Execution: 

r/ RUN /k g /RUN/T/RUN/I 


sto 

2 

00 

X 

• 

oil 

+ 

E 

02 

( 

6 

03 

stop 

0 

04 

X 

• 

05 

) 

6 

06 

-r 

G 

07 

rcl 

5 

08 

= 

— 

09 

sto 

2 

10 


1 

11 

X 

• 

12 

# 

3 

13 

2 

2 

14 

• 

A 

15 

0 

0 

16 

0 

0 

17 

6 

6 

18 

1 

1 

19 

= 

— 

20 

stop 

0 

21 

rcl 

5 

22 

stop 

0 

23 

T 

A 

24 

goto 

2 

25 

0 

0 

26 

0 

0 

27 



28 



29 



30 



31 



32 



33 



34 



35 


27 
























































































CENTRE OF 
GRAVITY 
AND RADIUS OF 
GYRATION 

Straight Rod 



kL = 0 
I 2 

k 2 = — 
vv 12 

Execution: 

I / RUN / k^y 


Notation throughout this section: 

G = position of centre of gravity 

k xx = radius of gyration about x-axis through G 

kyy = radius of gyration about y-axis through G 


X 

* 

00 

— 

G 

01 

# 

3 

02 

1 

1 

03 

2 

2 

04 

= 

— 

05 

stop 

0 

06 

V 

A 

07 

goto 

2 

08 

0 

0 

09 

0 

0 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


28 






CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Triangular Lamina 



For notation see page 28 



k 2 

xx 18 


k 2 = b i + b 1 b 2 + b| 

Kyy ^ 


Execution: 

b, / RUN / b 2 / RUN / d / RUN / k 2 y / h / 
RUN / k xx 


X 

• 

00 

( 

6 

01 

— 

F 

02 

stop 

0 

03 

sto 

2 

04 

-r 

G 

05 

# 

3 

06 

3 

3 

07 

X 

• 

08 

stop 

0 

09 

-r 

G 

10 

# 

3 

11 

2 

2 

12 

= 

— 

13 

▼ 

A 

14 

MEx 

5 

15 

) 

6 

16 


G 

17 

# 

3 

18 

6 

6 

19 

+ 

E 

20 

rcl 

5 

21 

= 

— 

22 

stop 

0 

23 

X 

• 

24 

-r 

G 

25 

# 

3 

26 

1 

1 

27 

8 

8 

28 

= 

— 

29 

stop 

0 

30 

▼ 

A 

31 

goto 

2 

32 

0 

0 

33 

0 

0 

34 



35 


29 











































































































CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Rectangular lamina 


For notation see page 28 


k 2 


12 


k 2 = — 
w 12 


Execution: 

b / RUN / k 2 x / a / RUN / k 2 y 


X 

• 

00 

-r 

G 

01 

# 

3 

02 

i 

1 

03 

2 

2 

04 

= 

— 

05 

stop 

0 

06 

▼ 

A 

07 

goto 

2 

08 

0 

0 

09 

0 

0 

10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 1 



32 



33 



34 



35 


30 


CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Sector of circular lamina 



F.or notation see page 28 


. 2a sin a 

d =—-- 

3a 

2 _ a 2 / sin 2a \ 

kxx T v~“^r/ 


Execution: 

a (in radians) / RUN / a / RUN / d 
RUN / k 2 x 


sto 

2 

00 

sin 

7 

01 


G 

02 

rcl 

5 

03 

= 

— 

04 

▼ 

A 

05 

MEx 

5 

06 

COS 

8 

07 

X 

• 

08 

( 

6 

09 

stop 

0 

10 

-r 

G 

11 

# • 

3 

12 

3 

3 

13 

+ 

E 

14 

X 

• 

15 

▼ 

A 

16 

MEx 

5 

17 

= 

— 

18 

stop 

0 

19 

) 

6 

20 

— 

F 

21 

rcl 

5 

22 

X 

• 

23 

rcl 

5 

24 

— 

F 

25 

X 

• 

26 

# 

3 

27 

9 

9 

28 


G 

29 

# 

3 

30 

1 

1 

31 

6 

6 

32 

= 


33 

stop 

0 

34 

= 

— 

35 


31 




































































































CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Curved rod (arc of a circle) 



For notation see page 28 


a 

l -2 = al /- sin 2a \ 
kxx 2 V 2 a ) 

Execution: 

a° / RUN / a / RUN / d / RUN / k 2 x 


T 

A 

00 

D-*R 

3 

01 

sto 

2 

02 

sin 

7 

03 

-f 

G 

04 

rcl 

5 

05 

= 

— 

06 


A 

07 

MEx 

5 

08 

COS 

8 

09 

X 

* 

10 

( 

6 

11 

stop 

0 

12 

X 

• 

13 

▼ 

A 

14 

MEx 

5 

15 

) 

6 

16 

stop 

0 

17 

— 

F 

18 

rcl 

5 

19 

X 

• 

20 

rcl 

5 

21 

— 

F 

22 

T 

G 

23 

# 

3 

24 

2 

2 

25 

= 

— 

26 

stop 

0 

27 

▼ 

A 

28 

goto 

2 

29 

0 

0 

30 

0 

0 

31 



32 



33 



34 



35 


32 


CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Spherical shell 



For notation see page 28 

a = radius 
t = thickness 

Volume = 47ia 2 1 

2a 2 

L-2 _ 1,2 = 1,2 = ±f_ 

^xx ^yy ,v zz g 


Execution: 

a / RUN / k xx / t / RUN / volume 


X 

• 

00 

~ 

G 

01 

# 

3 

02 

1 

1 

03 

• 

A 

04 

5 

5 

05 

X 

• 

06 

stop 

0 

07 

X 

• 

08 

# 

3 

09 

1 

1 

10 

0 

0 

11 

8 

8 

12 

0 

0 

13 

= 

— 

14 

▼ 

A 

15 

D-»R 

3 

16 

stop 

0 

17 

▼ 

A 

18 

goto 

2 

19 

0 

0 

20 

0 

0 

21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


33 





































































































CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Thin-walled tube 



For notation see page 28 


a = radius 
I = length 
t = thickness 


Volume = 2?ralt 
kx X = a 2 

U2 _ 1,2 - [ I 2 

K yy K zz 2 12 

Execution: 

I / RUN / a / RUN / t / RUN / volume / RUN / 
k xx / RUN / k 2 v 


X 

• 

00 

+ 

E 

01 

( 

6 

02 

v^r 

1 

03 

X 

• 

04 

stop 

0 

05 

sto 

2 

06 

X 

• 

07 

stop 

0 

08 

X 

• 

09 

# 

3 

10 

3 

3 

11 

6 

6 

12 

0 

0 

13 

= 

— 

14 

W 

A 

15 

D-»R 

3 

16 

Stop 

0 

17 

rcl 

5 

18 

X 

• 

19 

X 

• 

20 

stop 

0 

21 

# 

3 

22 

6 

6 

23 

= 

— 

24 

> 

6 

25 

■f 

G 

26 

# 

3 

27 

1 

1 

28 

2 

2 

29 

= 

— 

30 

stop 

0 

31 

= 

— 

32 

= 

— 

33 

= 

— 

34 

= 

— 

35 


34 


CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Solid cylinder 


For notation see page 28 

a = radius 
I = length 

Volume = 7ra 2 l 



k 2 = — + — = k 2 
vv 4 12 22 

Execution: 

a / RUN / k 2 x / I / RUN / volume / RUN / l<2 y 


X 

• 

00 

-r 

G 

01 

# 

3 

02 

2 

2 

03 

+ 

E 

04 

( 

6 

05 

X 

* 

06 

stop 

0 

07 

sto 

2 

08 

X 

* 

09 

# 

3 

10 

3 

3 

11 

6 

6 

12 

0 

0 

13 

= 

— 

14 

▼ 

A 

15 

D^R 

3 

16 

stop 

0 

17 

rcl 

5 

18 

X 

• 

19 

-r 

G 

20 

# 

3 

21 

6 

6 

22 

= 

— 

23 

) 

6 

24 

-r 

G 

25 

# 

3 

26 

2 

2 

27 

= 

— 

28 

stop 

0 

29 

▼ 

A 

30 

goto 

2 

31 

0 

0 

32 

0 

0 

33 

— 


34 

35 


35 









































































































CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Solid hemisphere 



For notation see page 28 

.. . 2na 3 
Volume = —r— 


k 2 

Kxx- g 

k 2 -§3a! 
vv 320 


Execution: 

a / RUN / volume / RUN /k 2 x / RUN/ k 2 y 


sto 

2 

00 

X 

• 

01 

X 

• 

02 

( 

6 

03 

X 

• 

04 

rcl 

5 

05 

X 

• 

06 

# 

3 

07 

1 

1 

08 

2 

2 

09 

0 

0 

10 

= 


11 

T 

A 

12 

D-*R 

3 

13 

stop 

0 

14 

# 

3 

15 

• 

A 

16 

4 

4 

17 

= 

— 

18 

) 

6 

19 

X 

• 

20 

stop 

0 

21 

# 

3 

22 

8 

8 

23 

3 

3 

24 

~ 

G 

25 

# 

3 

26 

1 

1 

27 

2 

2 

28 

8 

8 

29 

~ 


30 

stop 

0 

31 

= 

— 

32 

= 

— 

33 

= 

— 

34 

= 


35 


36 


CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Solid spheroid 



For notation see page 28 

(For sphere, a = b) 

47rab 2 
Volume = —z — 


k 2 = gb 2 

Kxx 5 

k 2 _ a 2 +b 2 
K w 5 


Execution: 

b / RUN / k xx / a / RUN / volume / RUN / k yy 


X 

• 

00 

X 

• 

01 

#■ 

3 

02 

• 

A 

03 

4 

4 

04 

+ 

E 

05 

( 

6 

06 

X 

• 

07 

stop 

0 

08 

sto 

2 

09 

X 

• 

10 

# 

3 

11 

6 

6 

12 

0 

0 

13 

0 

0 

14 

= 

— 

15 

W 

A 

16 

D->R 

3 

17 

stop 

0 

18 

rcl 

5 

19 

X 

• 

20 

X 

• 

21 

# 

3 

22 

* 

A 

23 

4 

4 

24 

= 


25 

) 

6 

26 

-T 

G 

27 

# 

3 

28 

2 

2 

29 

= 

— 

30 

stop 

0 

31 

= 

— 

32 

= 

— 

33 

= 

— 

34 

= 


35 


37 


































































































CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Solid cone 


V 



For notation see page 28 

H = height 
a = radius of base 


Volume = 


7ra 2 h 


1,2 = ^ 

xx 10 

2 3(4a 2 + h 2 ) 

vv 80 


Execution: 

a / RUN / k 2 x / h / RUN / volume / RUN / k 2 y 


X 

• 

00 

X 

• 

01 

# 

3 

02 

• 

A 

03 

3 

3 

04 

+ 

E 

05 

( 

6 

06 

X 


07 

stop 

0 

08 

sto 

2 

09 

X 

* 

10 

# 

3 

11 

2 

2 

12 

0 

0 

13 

0 

0 

14 

= 

— 

15 

▼ 

A 

16 

D->R 

3 

17 

stop 

0 

18 

rcl 

5 

19 

X 


20 

# 

3 

21 

• 

A 

22 

0 

0 

23 

7 

7 

24 

5 

5 

25 

= 

— 

26 

) 

6 

27 


G 

28 

# 

3 

29 

2 

2 

30 

= 

— 

31 

stop 

0 

32 

= 

— 

33 

= 


34 

= 

— 

35 


38 







CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Toroid (circular section) 



For notation see page 28 
Volume = 27r 2 ab 2 



k 2 + 
k vv 2 8 


Execution: 

b / RUN / a / RUN / volume / RUN / k 2 x / 
RUN /k 2 v 


X 

• 

00 

-T 

G 

01 

# 

3 

02 

4 

4 

03 

= 

— 

04 

sto 

2 

05 

stop 

0 

06 

X 

• 

07 

+ 

E 

08 

( 

6 

09 


1 

10 

X 

• 

11 

rcl 

5 

12 

X 

• 

13 

# 

3 

14 

7 

7 

15 

8 

8 

16 

* 

A 

17 

9 

9 

18 

5 

5 

19 

7 

7 

20 

= 

— 

21 

stop 

0 

22 

# 

3 

23 

3 

3 

24 

X 

• 

25 

rcl 

5 

26 

) 

6 

27 

-f 

G 

28 

stop 

0 

29 

# 

3 

30 

2 

2 

31 

+ 

E 

32 

rcl 

5 

33 

= 

— 

34 

stop 

0 

35 


39 





































































































CENTRE OF GRAVITY 
AND RADIUS OF 
GYRATION 

Toroid (rectangular section) 



For notation see page 28 
Volume = 27ratl 
k« - a* + J 
k 2 

vv 2 8 12 
Execution: 

a / RUN/t / RUN / k* x / I / RUN / k^, 

Post-execution (to find volume): 

*▼/ rcl / X / 6-2831852 / = / volume 


sto 

2 

00 

X 

• 

01 

+ 

E 

02 

( 

6 

03 

stop 

0 

04 

X 

• 

05 

T 

A 

06 

MEx 

5 

07 

= 

— 

08 

▼ 

A 

09 

MEx 

5 

10 

~ 

G 

11 

# 

3 

12 

2 

2 

13 

X 

• 

14 

) 

6 

15 

+ 

E 

16 

( 

6 

17 

stop 

0 

18 

X 

* 

19 

▼ 

A 

20 

MEx 

5 

21 

= 

— 

22 

▼ 

A 

23 

MEx 

5 

24 

X 

• 

25 

-T 

G 

26 

# 

3 

27 

6 

6 

28 

= ■ 

— 

29 

) 

6 

30 

-r 

G 

31 

# 

3 

32 

2 

2 

33 

= 

__ 

34 

stop 

0 

35 


40 


PRESSURE FLOW 
MEASUREMENT 

Manometer 




pressure difference Pi — p 2 = gh(p m — p) 
Execution: 

p m / RUN /p / RUN / h / RUN / 

pressure difference 

In S.l. units; g taken as 9 81 ms -2 . 


— 

F 

00 

stop 

0 

01 

X 

• 

02 

stop 

0 

03 

X 

• 

04 

# 

3 

05 

9 

9 

06 

• 

A 

07 

8 

8 

08 

1 

1 

09 

= 

— 

10 

stop 

0 

11 

▼ 

A 

12 

goto 

2 

13 

0 

0 

14 

0 

0 

15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


41 








































































































FLOW RATES 

Pitot static tube 


u = velocity of fluid 
P = total pressure 
p = static pressure 
p = density 





2(P — p) 
P 


Execution: 

P/ RUN / p / RUN /p / RUN /u 


— 

F 

00 

stop 

0 

01 

-f 

G 

02 

stop 

0 

03 

+ 

E 

04 

= 

— 

05 


1 

06 

stop 

0 

07 

▼ 

A 

08 

goto 

2 

09 

0 

0 

10 

0 

0 

11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


42 


FLOW RATES 

Sharp edged orifice 


A = area 

Q = volume flow rate 
C d = discharge coefficient 

Q = AC d V5gh“ 

Execution: 

h / RUN / A / RUN / C d / RUN / Q 
In S.l. units; g taken as 9 81ms" 2 . 


X 

• 

00 

# 

3 

01 

1 

1 

02 

9 

9 

03 

• 

A 

04 

6 

6 

05 

2 

2 

06 

= 

— 

07 

FT 

1 

08 

X 

• 

09 

stop 

0 

10 

X 

• 

11 

stop 

0 

12 

= 

— 

13 

stop 

0 

14 

T 

A 

15 

goto 

2 

16 

0 

0 

17 

0 

0 

18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


43 






























































































FLOW RATES 

Venturi 


Subscript 1 refers to tube 
Subscript 2 refers to throat 
p = static pressure 
a = area 

u = velocity of fluid 
p = density 

_ / 2(Pi ~ P 2 ) 

m'-'] 

Execution: 

a! / RUN / a 2 / RUN / p / RUN / p, / RUN / p 2 / 
RUN/u 

Restrictions: 
a, >a 2 , Pi >p 2 or 
a i < a 2 , Pi < p 2 


-T 

G 

00 

stop 

0 

01 

X 

• ' 

02 

— 

F 

03 

# 

3 

04 

1 

1 

05 

X 

• 

06 

stop 

0 

07 

-r 

G 

08 

X 

* 

09 

( 

6 

10 

stop 

0 

11 

— 

F 

12 

stop 

0 

13 

+ 

E 

14 

) 

6 

15 

= 

_ 

16 

V* - 

1 

17 

stop 

0 

18 

V 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


44 


PIPE FLOW 


L = length 

D = diameter 

C f = skin inertia coefficient 

p = density 

U m = mean velocity 

pressure drop = 2 — C f p U^ 

Execution: 

U m /RUN /p / RUN / C f / RUN / L / RUN / D / 

RUN / pressure drop 


X 

• 

00 

X 

• 

01 

stop 

0 

02 

X 

• 

03 

stop 

0 

04 

X 

• 

05 

stop 

0 

06 

-r 

G 

07 

stop 

0 

08 

+ 

E 

09 

= 

— 

10 

stop 

0 

11 

V 

A 

12 

goto 

2 

13 

0 

0 

14 

0 

0 

15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 



























































































PIPE FLOW 

Sudden expansion 



Head loss = ^ Ul 



Execution: 

(i) Ut / RUN / u 2 / RUN / head loss 

(post execution with / RUN/RUN / before 
entering new data) 

(ii) u,/RUN / RUN / At / RUN/A 2 /RUN / 

head loss 

In S.I. units; g taken as 9 81ms 2 . 


— 

F 

00 

stop 

0 

01 

X 


02 

-T 

G 

03 

# 

3 

04 

1 

1 

05 

9 

9 

06 


A 

07 

6 

6 

08 

2 

2 

09 

X 

* 

10 

( 

6 

11 

stop 

0 

12 

-r 

G 

13 

stop 

0 

14 

— 

F 

15 

# 

3 

16 

1 

1 

17 

X 

• 

18 

) 

6 

19 

= 

— 

20 

stop 

0 

21 

V 

A 

22 

goto 

2 

23 

0 

0 

24 

0 

0 

25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


46 


IDEAL PRESSURE 
RISE DIFFUSER 



Execution: 

At/RUN/A 2 / RUN /u, / RUN Ip / RUN /Ap 
(A 2 > A, for +ve Ap) 


-f 

G 

00 

stop 

0 

01 

X 

• 

02 

— 

F 

03 

# 

3 

04 

1 

1 

05 

— 

F 

06 

X 

• 

07 

( 

6 

08 

stop 

0 

09 

X 

• 

10 

) 

6 

11 

X 


12 

stop 

0 

13 


G 

14 

# 

3 

15 

2 

2 

16 

= 

— 

17 

stop 

0 

18 

▼ 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


47 
































































































SLUICE GATE 




= 

h 2 (h-j + h 2 ) 

Execution: 

(i) u 2 / RUN / h 2 / RUN / F 2 2 
In S.l. units; g taken as 9-81ms' 2 . 


X 

• 

00 

-r 

G 

01 

stop 

0 

02 

-r 

G 

03 

# 

3 

04 

9 

9 

05 

• 

A 

06 

8 

8 

07 

1 

1 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



321 



33 



34 



35 


48 


Sluice gate (cont.) 


(ii) h 2 / RUN / h, / RUN / F 2 2 


-r 

G 

00 

stop 

0 

01 

+ 

E 

02 

( 

6 

03 

X 

• 

04 

) 

6 

05 

4- 

G 

06 

+ 

E 

07 

= 

— 

08 

▼ 

A 

09 

goto 

2 

10 

0 

0 

11 

0 

0 

12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


49 



































































































HYDRAULIC JUMP 



c 2 _h 2 (h 1 + h 2 ) 

Fl ‘ 2h^ 

c 2 = hi (h-j + h 2 ) 

ha 2h 2 2 

Execution: 

(i) h 2 / RUN /h,/RUN/ Ft 2 

(ii) h-, / RUN / h 2 / RUN / F 2 2 


(i) 


(ii) 



G 

00 

stop 

0 

01 

+ 

E 

02 

( 

6 

03 

X 

* 

04 

) 

6 

05 

~ 

G 

06 

# 

3 

07 

2 

2 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


50 


COMPRESSIBLE 

FLOW 


Perfect gas relationships: 

M = mach number 

7 = ratio of specific heats = 1 405 for dry air 

H'-") 

p _ / (7-1) M 2 \^h 

Po \ 2 j 

Execution: 

M / RUN /yl RUN /^r / RUN l~ / RUN /-£ 

■ a ‘ n Vo 


X 

• 

00 

— 

F 

01 

( 

6 

02 

X 

* 

03 

stop 

0 

04 

sto 

2 

05 

) 

6 

06 

4- 

G 

07 

# 

3 

08 

2 

2 

09 

+ 

E 

10 

# 

3 

11 

1 

1 

12 

= 

— 

13 

stop 

0 

14 

In 

4 

15 

4 

G 

16 

( 

6 

17 

rcl 

5 

18 

— 

F 

19 

# 

3 

20 

i 

1 

21 

= 

— 

22 

> 

6 

23 

X 

* 

24 

▼ 

A 

25 

MEx 

5 

26 

= 

— 

27 

▼ 

A 

28 

e x 

4 

29 

stop 

0 

30 

rcl 

5 

31 

. = 

— 

3? 

▼ 

A 

33 

e* 

4 

3/1 

stop 

0 

35 


IH 


































































































THERMODYNAMICS 

Polytropic process 

p = pressure 
v = volume 
n = index 

T = absolute temperature 
R = gas constant 

pv n = constant 


To find index or final pressure or volume 


(i) 


P 2 =Pi 



(ii) 


v 2 = v. 



n 


(iii) 



Execution: 


(i) n/RUN/v 1 /RUN/v 2 /RUN/p 1 / 

RUN /p 2 

(ii) n / ■=■ / RUN / p-, / RUN / p 2 / RUN / v, / 
RUN / v 2 

(iii) / at / aw / goto / 1 / 9 / Pl / RUN / p 2 / 
RUN/v,/RUN / v 2 / RUN /n 


X 

• 

00 

( 

6 

01 

stop 

0 

02 


G 

03 

stop 

0 

04 

= 

~ 

05 

In 

4 

06 

) 

6 

07 

= 

— 

08 

▼ 

A 

09 

e x 

4 

10 

X 

• 

11 

stop 

0 

12 

= 

— 

13 

stop 

0 

14 

▼ 

A 

15 

goto 

2 

16 

0 

0 

17 

0 

0 

18 

T 

G 

19 

stop 

0 

20 

= 

— 

21 

In 

4 

22 

T 

G 

23 

( 

6 

24 

stop 

0 

25 

-r 

G 

26 

stop 

0 

27 

= 

— 

28 

In 

4 

29 

) 

6 

30 

— 

F 

31 

. = 

— 

32 

stop 

0 

33 

= 

— 

34 

= 

— 

35 


52 


THERMODYNAMICS 

Polytropic process 


To find work 


work = 


p 2 v 2 -p 1 v 1 
1 -n 


R(T 2 -T,) 
1 -n 


for a perfect gas 


(i) 

(ii) 


Execution: 

(i) Pl /RUN / v, / RUN / p 2 / RUN / v 2 / 
RUN / n/ RUN /work 

(ii) R/RUN/T 1 /RUN/ RUN / T 2 / RUN / 
n / RUN / work 


sto 

2 

00 

X 

• 

01 

stop 

0 

02 

— 

F 

03 

( 

6 

04 

rcl 

5 

05 

stop 

0 

06 

X 

• 

07 

stop 

0 

08 

) 

6 

09 

-r 

G 

10 

( 

6 

11 

# 

3 

12 

1 

1 

13 

— 

F 

14 

stop 

0 

15 

) 

6 

16 

— 

F 

17 

= 

— 

18 

stop 

0 

19 

▼ 

A 

20 

goto 

2 

21 

0 

0 

22 

0 

0 

23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 




























































































HEAT CONDUCTION 
SHAPE FACTORS 

Cylinder 


r f = inside radius 
r„ = outside radius 
L = length 
F = shape factor 



Execution: 

r Q / RUN /r,/ RUN / L/ RUN /F 


-T 

G 

00 

stop 

0 

01 

= 

— 

02 

In 

4 

03 

'f- 

G 

04 

X 

• 

05 

stop 

0 

06 

X 

• 

07 

# 

3 

08 

3 

3 

09 

6 

6 

10 

0 

0 

11 

= 

— 

12 

▼ 

A 

13 

D^R 

3 

14 

stop 

0 

15 

▼ 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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HEAT CONDUCTION 
SHAPE FACTORS 

Sphere 


T; = inside radius 
r Q = outside radius 

r _ 47rr 0 r, 

r Q - n 

Execution: 

r,/ RUN / r 0 / RUN / F 


-T 

G 

00 

— 

F 

01 

( 

6 

02 

stop 

0 

03 

-r 

G 

04 

) 

6 

05 

-r 

G 

06 

X 

* 

07 

# 

3 

08 

7 

7 

09 

2 

2 

10 

0 

0 

11 

= 

— 

12 

▼ 

A 

13 

D^R 

3 

14 

stop 

0 

15 

▼ 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


t>l> 
























































































HEAT CONDUCTION 
SHAPE FACTORS 

Horizontal disc 


r = radius 

D = centre line depth 

f _ 2-22 r 

1 --— 

2-83D 

Execution: 

r/RUN/D/RUN/F 


sto 

2 

00 

~ 

G 

01 

stop 

0 

02 

-r 

G 

03 

# 

3 

04 

2 

2 

05 

* 

A 

06 

8 

8 

07 

3 

3 

08 

— 

F 

09 

# 

3 

10 

1 

1 

11 

— 

F 

12 

-f 

G 

13 

X 

* 

14 

rcl 

5 

15 

X 

• 

16 

# 

3 

17 

2 

2 

18 

• 

A 

19 

2 

2 

20 

2 

2 

21 

= 

— 

22 

stop 

0 

23 

▼ 

A 

24 

goto 

2 

25 

0 

0 

26 

0 

0 

27 



28 



29 



30 



31 



32 



33 



34 



35 
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HEAT CONDUCTION 
SHAPE FACTOR 

Buried sphere 


r = radius 

D = centre line depth 



Execution: 

r/RUN/D/RUN/F 


sto 

2 

00 

-T 

G 

01 

stop 

0 

02 

— 

F 

03 

• # 

3 

04 

2 

2 

05 

— 

F 

06 

4- 

G 

07 

X 

• 

08 

rcl 

5 

09 

X 

• 

10 

# 

3 

11 

3 

3 

12 

6 

6 

13 

0 

0 

14 

= 

— 

15 

▼ 

A 

16 

D^R 

3 

17 

stop 

0 

18 

▼ 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



124 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



36 
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ACOUSTICS 

Adding sound levels (and weighted sound levels) 
in dB (+ hourly average of sound level) 

(Log. r.m.s. addition) 


L n = 10 log 10 ^ = 4-3429448 In ^ 

r r r r 

where P r = reference s.p.l. of 2 x 10' 5 Nm" 2 
Definitions: 

Noise level addition operator © 


L m © L n = 4-34294 In 


6XP (4 34294) 


+ exp ( 4-34294) 

Noise level subtraction operator © 

L m 


L m © L n = 4-34294 In 


exp 


4-34294 


exp 1*^294) 

Weighting by time operator ® 


L n ® t n = 4-34294 In 


t n exp 


Averaging over time 

1 


L av = 4-34294-In 


2 t k exp 

t k=1 k M 


4-34294 
L k 


4-34294 


t = t, + t 2 + • • • + t n 


Weighting table ('A' weighting) 


f(Hz) 

W f (dB) 

f(kHz) 

W t (dB) 

31-5 

39 

1 

0 

63 

26 

2 

1 

125 

16 

4 

1 

250 

10 

8 

1 

500 

3 




■f 

G 

00 

# 

3 

01 

8 

8 

02 

• 

A 

03 

6 

6 

04 

8 

8 

05 

5 

5 

06 

8 

8 

07 

9 

9 

08 

= 


09 

T 

A 

10 

e x 

4 

11 

X 

* 

12 

stop 

0 

13 

+ 

E 

14 

rcl 

5 

15 

= 

— 

16 

sto 

2 

17 

V3T 

1 

18 

In 

4 

19 

X 

• 

20 

# 

3 

21 

8 

8 

22 

• 

A 

23 

6 

6 

24 

8 

8 

25 

5 

5 

26 

8 

8 

27 

9 

9 

28 

= 

— 

29 

stop 

0 

30 

T 

A 

31 

goto 

2 

32 

0 

0 

33 

0 

0 

34 



35 
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Pre-execution: 

/ AT / AT / goto / 0 / 0 / C /ce / AT / sto / 
to clear memory 

Execution: 

(i) Adding noise/sound levels: 

L-, / RUN / RUN / L 2 / RUN / RUN / L-, © L 2 / L 3 / RUN / 

RUN / Lt © L 2 ©L 3 - • • 

(ii) Subtracting noise levels: 

L, / RUN / RUN / L 2 / RUN /-/ RUN / L, © L 2 
(add or subtract levels at will) 

(iii) Adding and weighting noise levels: 

L-) / — / W, / RUN / RUN / L^-W,/ L 2 /-/W 2 /RUN / 
RUN / (L-, -WJ © (L 2 — W 2 ) • • • (see table for W f ) 

Post execution: 

/ AT / AT / goto / 1 / 4 / OCE / AT / AT / MEx / ^ / 0 / 

RUN / L weighted 

where n = no. of levels entered. 

(iv) Time averaged noise levels: 

L, / RUN / X / t-, / RUN / L, ® t, / L 2 / RUN / X /1 2 / RUN / 

(L, ® t,) © (L 2 ® t 2 ) * ‘ • 

Post execution: 

/ AT / AT / goto / 1 / 4 / C /CE / AT / AT / MEx / ^ / t / 

RUN / L av 

(v) Hourly averaged noise level: 

Add 24 hourly levels using (i) then post-execution 
Post execution: 

/ at / at / goto / 1 / 4 / c /ce / at / at / MEx / ^- / 24 / 
RUN / L av 
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DECIBEL 

CONVERSION 


A dB = 10 log 10 = 20 log 10 
V 1 


- 20 log 10 ~r~ 

*i 


P 2 = Pi antilog 10 
E 2 = E, antilog 10 
l 2 = !■, antilog 10 


AdB 

10 ~ 

AdB 

20 

AdB 

20 


Neper conversion: 

An = 2 ln p 7 = ln e 7 = ln 77 


§2 

Ei 


P 2 = P n exp 2A n 


E 2 = E, exp A n 

l 2 = It exp A n 

Ratio to dB or nepers: 

Execution: 

P 2 /-/Pi/ = /av/V3T/ 
or E 2 /^/E 1 / = / 
or l 2 7 4 7l 1 / = / 


r/ RUN /A n / 
RUN/A dB 


In 

4 

00 

stop 

0 

01 

X 

* 

02 

# 

3 

03 

8 

8 

04 

• 

A 

05 

6 

6 

06 

8 

8 

07 

5 

5 

08 

8 

8 

09 

9 

9 

10 

= 

— 

11 

stop 

0 

12 

V 

A 

13 

goto 

2 

14 

0 

0 

15 

0 

0 

16 


G 

17 

# 

3 

18 

8 

8 

19 

• 

A 

20 

6 

6 

21 

8 

8 

22 

5 

5 

23 

8 

8 

24 

9 

9 

25 

= 

— 

26 

stop 

0 

27 

w 

A 

28 

e x 

4 

29 

X 

• 

30 

stop 

0 

31 

Y 

A 

32 

goto 

2 

33 

1 

1 

34 

7 

7 

35 
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dB or nepers to ratio: 
Pre-execution: 


dB to ratio: at / av / goto / 1 / 7 / first time only 

nepers to ratio: av / at / goto 7 2 / 8 / every time 


Execution: 
dB to ratio: 


A dB / RUN / A n / RUN / r 


/X/P 1 /=/P 2 
or /E 1 / = /E 2 
or / li / = / l 2 
or / = / r 2 


Always use / = / even if no other result is required. 


nepers to ratio: 

A n / RUN / r and continue with alternatives 
as above. 





























































BEAM BENDING 

Beam with one fixed end and load W at free end 



we 2 

end slope = 

we 3 

end deflection = - 5 —- 

O lZ I 

Execution: 

8 / RUN / W / RUN / E / RUN / I / RUN / 

slope / RUN / deflection 


sto 

2 

00 

X 

• 

01 

X 

• 

02 

stop 

0 

03 

'-r 

G 

04 

stop 

0 

05 

-f 

G 

06 

stop 

0 

07 

-r 

G 

08 

# 

3 

09 

2 

2 

10 

-r 

G 

11 

stop 

0 

12 

# 

3 

13 

1 

1 

14 

* 

A 

15 

5 

5 

16 

X 


17 

rcl 

5 

18 

= 

— 

19 

stop 

0 

20 

▼ 

A 

21 

goto 

2 

22 

0 

0 

23 

0 

0 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Beam with one fixed end and distributed 
loading W 



we 2 

end slope = 

6 EI 

Wfi 3 

end deflection =- 

8 EI 

Execution: 

8 / RUN / W / RUN / E / RUN / I / RUN / 

slope / RUN / deflection 


sto 

2 

00 

X 

• 

01 

X 

• 

02 

stop 

0 

03 

-r 

G 

04 

stop 

0 

05 

-T 

G 

06 

stop 

0 

07 

-r 

G 

08 

# 

3 

09 

6 

6 

10 

X 

* 

11 

stop 

0 

12 

# 

3 

13 

• 

A 

14 

7 

7 

15 

5 

5 

16 

X 

• 

17 

rcl 

5 

18 

= 

— 

19 

stop 

0 

20 

V 

A 

21 

goto 

2 

22 

0 

0 

23 

0 

0 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Simply supported beam with central load W 



WJ2 2 

end slope = 

Wfi 3 

central deflection = —— 
48EI 


Execution: 

K / RUN / W/ RUN/E/RUN/I/RUN/ 

end slope / RUN / central deflection 


sto 

2 

00 

X 

• 

01 

X 

• 

02 

stop 

0 

03 

-r 

G 

04 

stop 

0 

05 

-r 

G 

06 

stop 

0 

07 

-r 

G 

08 

# 

3 

09 

i 

1 

10 

6 

6 

11 

-7- 

G 

12 

stop 

0 

13 

# 

3 

14 

3 

3 

15 

X 

• 

16 

rcl 

5 

17 

= 

— 

18 

stop 

0 

19 


A 

20 

goto 

2 

21 

0 

0 

22 

0 

0 

23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Simply supported beam with distributed 
loading W 



W£ 2 

end slope = 


central deflection = 


5WJ2 3 

384EI 


Execution: 

C/ RUN /W/ RUN / E / RUN / I / RUN / 

end slope / RUN / central deflection 


sto 

2 

00 

X 

• 

01 

X 


02 

stop 

0 

03 

+ 

G 

04 

stop 

0 

05 


G 

06 

stop 

0 

07 

-f 

G 

08 

# 

3 

09 

2 

2 

10 

4 

4 

11 


G 

12 

stop 

0 

13 

# 

3 

14 

3 

3 

15 

• 

A 

16 

2 

2 

17 

X 


18 

rcl 

5 

19 

= 

— 

20 

stop 

0 

21 

T 

A 

22 

goto 

2 

23 

0 

0 

24 

0 

0 

25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Beam fixed at both ends with load W at a 
distance from end A 



M fa = 


Wb 2 a 


m fb 


Wa 2 b 

2 Z 


2 = a + b 


Execution: 

b/ RUN / a/ RUN / W / RUN / 2 / RUN / M FA / 
RUN /M fb 


sto 

2 < 

00 

X 


01 

X 


02 

rcl 

5 

03 

X 

• 

04 

( 

6 

05 

stop 

0 

06 

-T 

G 

07 

rcl 

5 

08 

) 

6 

09 

sto 

2 

10 

X 

* 

11 

stop 

0 

12 

4- 

G 

13 

( 

6 

14 

stop 

0 

15 

X 


16 

) 

6 

17 

— 

F 

18 

X 


19 

stop 

0 

20 

rcl 

5 

21 

— 

F 

22 

= 


23 

stop 

0 

24 

▼ 

A 

25 

goto 

2 

26 

0 

0 

27 

0 

0 

28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Beam with two fixed ends and central loading W 



Fixed end moments 

W2 
8 

\N2 


M fa = 


M fb = 


8 


Central deflection 
W £ 3 


d = 


192EI 


-T 

G 

00 

# 

3 

01 

8 

8 

02 

X 

• 

03 

stop 

0 

04 

sto 

2 

05 

X 

* 

06 

( 

6 

07 

V 

A 

08 

MEx 

5 

09 

X 

* 

10 

) 

6 

11 

4- 

G 

12 

# 

3 

13 

2 

2 

14 

4 

4 

15 


G 

16 

stop 

0 

17 

4- 

G 

18 

stop 

0 

19 

= 

— 

20 

T 

A 

21 

MEx 

5 

22 

— 

F 

23 

— 

F 

24 

stop 

0 

25 

= 

— 

26 

stop 

0 

27 

rcl 

5 

28 

stop 

0 

29 

▼ 

A 

30 

goto 

2 

31 

0 

0 

32 

0 

0 

33 



34 



35 


Execution: 

W/ RUN 121 RUN / E / RUN / I / RUN /M FA / 
RUN /M FB / RUN /d 
































































































BEAM BENDING 

Beam between two fixed ends with evenly 
distributed total load W 



Fixed end moments 

R(1 _ we 

Mfa -J2 


M 


FB 


we 

12 


Central deflection 

we 3 


d = 


384EI 


Execution: 

W/ RUN m RUN / E / RUN / I / RUN /M FA / 
RUN /M FB / RUN /d 


4- 

G 

00 

# 

3 

01 

1 

1 

02 

2 

2 

03 

X 

• 

04 

stop 

0 

05 

sto 

2 

06 

X 

• 

07 

( 

6 

08 

T 

A 

09 

MEx 

5 

10 

X 


11 

) 

6 

12 

4 

G 

13 

# 

3 

14 

3 

3 

15 

2 

2 

16 

4 

G 

17 

stop 

0 

18 

4 

G 

19 

stop 

0 

20 

= 

— 

21 

▼ 

A 

22 

MEx 

5 

23 

— 

F 

24 

— 

F 

25 

stop 

0 

26 

= 

— 

27 

stop 

0 

28 

rcl 

5 

29 

stop 

0 

30 

▼ 

A 

31 

goto 

2 

32 

0 

0 

33 

0 

0 

34 



35 
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BEAM BENDING 

Beam with one fixed end, one pinned end. 
Effect of rotation at fixed end. 



M = applied bending moment 

, M£ 

end slope = — 

3fcl 

Execution: 

M / RUN / e / RUN / E / RUN / 17 RUN / 

end slope 


X 

• 

00 

stop 

0 

01 

4 

G 

02 

stop 

0 

03 

4 

G 

04 

stop 

0 

05 

4 

G 

06 

# 

3 

07 

3 

3 

08 

= 

— 

09 

stop 

0 

10 

w 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Beam with one fixed end and one pinned end 
— effect of rotation at pinned end 



Moment at fixed end A, = M 

Mfi 


end slope d = 


Execution: 


4EI 



M / RUN / £ / RUN / E / RUN / I / RUN / 

end slope 


X 

• 

00 

stop 

0 

01 

4- 

G 

02 

stop 

0 

03 

4 

G 

04 

stop 

0 

05 

4 

G 

06 

# 

3 

07 

4 

4 

08 

= 

— 

09 

stop 

0 

10 

▼ 

A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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BEAM BENDING 

Effect of end displacement on beam fixed at 
both ends 



Moments at fixed ends due to displacement 5 


M fa = M fb 


+6EI5 

e 2 


Execution: 

E/RUN/I/ RUN /5 / RUN/£/RUN /M FA 


X 

• 

00 

stop 

0 

01 

X 

• 

02 

stop 

0 

03 

X 


04 

stop 

0 

05 

X 

• 

06 

# 

3 

07 

6 

6 

08 

4 

G 

09 

( 

6 

10 

stop 

0 

11 

X 

* 

12 

) 

6 

13 

= 

— 

14 

stop 

0 

15 

▼ 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 


71 































































































STRUTS 

Critical load — strut with two pinned ends 



P 


crit 


= critical load = 


7T 2 E I 

F 


Execution: 

8 / RUN / E / RUN / I / RUN / P CTit 


4- 

G 

00 

# 

3 

01 

3 

3 

02 

* 

A 

03 

1 

1 

04 

4 

4 

05 

1 

1 

06 

6 

6 

07 

4- 

G 

08 

X 

• 

09 

X 


10 

stop 

0 

11 

X 


12 

stop 

0 

13 

= 

— 

14 

stop 

0 

15 

v 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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STRUTS 

Critical load for strut fixed at one end, pinned 
at other end 



P 


crit. 


2tt 2 El 

F 


Execution: 

C/RUN/E / RUN / I / RUN / P crit 


4- 

G 

00 

# 

3 

01 

3 

3 

02 


A 

03 

1 

1 

04 

4 

4 

05 

1 

1 

06 

5 

5 

07 

9 

9 

08 

2 

2 

09 

6 

6 

10 

-4 

G 

11 

X 


12 

+ 

E 

13 

X 


14 

stop 

0 

15 

X 


16 

stop 

0 

17 

= 

— 

18 

stop 

0 

19 

V 

A 

20 

goto 

2 

21 

0 

0 

22 

0 

0 

23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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STRUTS 

Strut with two fixed ends 



4tt 2 EI 

p2 

Execution: 

i/ RUN / E / RUN / I / RUN / 


■f 

G 

00 

# 

3 

01 

6 

6 

02 

• 

A 

03 

2 

2 

04 

8 

8 

05 

3 

3 

06 

2 

2 

07 

-T 

G 

08 

X 

* 

09 

X 

• 

10 

stop 

0 

11 

X 

• 

12 

stop 

0 

13 

= 

— 

14 

stop 

0 

15 

▼ 

A 

16 

goto 

2 

17 

0 

0 

18 

0 

0 

19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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STRUTS 

Critical load for strut with one fixed end and 
one free end 




I 


fixed end 



P - El7f2 
( 2£) 2 

Execution: 

£ / RUN/E / RUN / I / RUN / P crit . 



G 

00 

# 

3 

01 

9 

9 

02 

0 

0 

03 

-f 

G 

04 

= 

— 

05 

T 

A 

06 

D-+R 

3 

07 

X 

• 

08 

X 

• 

09 

stop 

0 

10 

X 

* 

11 

stop 

0 

12 

= 

— 

13 

stop 

0 

14 

▼ 

A 

15 

goto 

2 

16 

0 

0 

17 

0 

0 

18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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TORSION OF THIN 
WALLED TUBE 


6 

Torque = 27rr 3 t G — 

9 ^ . . . , angular deflection 

— = twist per unit length = —-—-- 

L 9 length 


Execution: 

r/ RUN /1 / RUN /G / RUN /|-/ RUN / 

torque 


X 


00 

( 

6 

01 

X 


02 

) 

6 

03 

X 

• 

04 

# 

3 

05 

3 

3 

06 

6 

6 

07 

0 

0 

08 

X 

* 

09 

stop 

0 

10 

X 

• 

11 

stop 

0 

12 

X 


13 

stop 

0 

14 

= 

— 

15 

V 

A 

16 

D-*R 

3 

17 

stop 

0 

18 

T 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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CYLINDRICAL 
PRESSURE VESSEL 



V^y 



) 


Longitudinal stress o 



Hoop stress <r y = ^ 


Execution: 

p/ RUN / d / RUN /t/ RUN / a x / RUN / a y 


X 


00 

stop 

0 

01 

-f 

G 

02 

stop 

0 

03 


G 

04 

# 

3 

05 

4 

4 

06 

+ 

E 

07 

stop 

0 

08 

= 

— 

09 

stop 

0 

10 


A 

11 

goto 

2 

12 

0 

0 

13 

0 

0 

14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



2 !. 



2 <i 

2 / 

211 

211 

III 

ll 

;i2 



33 

14 

Hi 


// 















































































COMPLEX STRESSES 

^oy 



_ p x + gy + p x - q y 


a e =- ~ — ^ + — - ™ v cos 26 


r e = Px 2 Py: sin 20 


Execution: 

o x / + / a y / RUN / 6 / RUN / a e / 6 / at / at / 
MEx/ RUN / r 9 

For angle 0 in degrees use / at / at / D-^R / 
after entering 0 each time. 

For negative 0 use 1-1 = 1 after third / RUN / 
to give correct sign of r e . 


sto 

2 

00 

-f 

G 

01 

# 

3 

02 

2 

2 

03 

+ 

E 

04 

( 

6 

05 

— 

F 

06 

rcl 

5 

07 

= 

— 

08 

sto 

2 

09 

stop 

0 

10 

sin 

7 

11 

X 


12 

+ 

E 

13 

— 

F 

14 


E 

15 

# 

3 

16 

1 

1 

17 

X 

* 

18 

rcl 

5 

19 

> 

6 

20 

= 

— 

21 

stop 

0 

22 

X 


23 

( 

6 

24 

rcl 

5 

25 

sin 

7 

26 

> 

6 

27 

X 


28 

( 

6 

29 

rcl 

5 

30 

cos 

8 

31 

>. 

6 

32 

+ 

E 

33 

= 

_ 

34 

stop 

0 

35 
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COMPLEX STRESSES 



o d = r sin 26 
Te = — r cos 26 

Execution: 

6 / RUN It I RUN /r e /RUN / a e 

it 

For 6 in degrees insert / t / D-*R / at start of 
program or use / at / at / D-*R / after 
entering 6. 

For negative 6, use / — / = / after third / RUN / 
to give correct sign of o g . 


sin 

7 

00 

X 

• 

01 

+ 

E 

02 

— 

F 

03 


E 

04 

# 

3 

05 

1 

1 

06 

= 

— 

07 

sto 

2 

08 

stop 

0 

09 

X 

* 

10 

( 

6 

11 

X 

• 

12 

rcl 

5 

13 

— 

F 

14 

= 

— 

15 

stop 

0 

16 

rcl 

5 

17 

X 

• 

18 

— 

F 

19 

+ 

E 

20 

# 

3 

21 

1 

1 

22 

= 

— 

23 

Vx 

1 

24 

) 

6 

25 

= 

— 

26 

stop 

0 

27 

▼ 

A 

28 

goto 

2 

29 

0 

0 

30 

0 

0 

31 



32 



33 



34 



35 
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ELASTIC STRAIN 
ENERGY 


Elastic strain energy: 

(i) Intension ~ 

T 2 

(ii) In torsion — 

2G 

Execution: 

(i) a/RUN/E/RUN/ energy 

(ii) r / RUN / G / RUN / energy 


X 


00 

-r 

G 

01 

# 

3 

02 

2 

2 

03 

-r 

G 

04 

stop 

0 

05 

= 

— 

06 

stop 

0 

07 

T 

A 

08 

goto 

2 

09 

0 

0 

10 

0 

0 

11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ELASTIC AND 
PLASTIC SECTIONAL 
MODULI 

Thin walled rectangular box 



(t small compared to h and b) 
Axis C v : Z e = bt^h+|j 

Z.-bt(h + |) 



Execution: 

h/RUN/b / RUN / t/ RUN/Z e /RUN/Z p / 
RUN /S 


-r 

G 

66 

stop 

0 

01 

sto 

2 

02 

+ 

E 

03 

# 

3 

04 

• 

A 

05 

5 

5 

06 

= 

— 

07 

▼ 

A 

08 

MEx 

5 

09 

X 

* 

10 

X 

• 

11 

stop 

0 

12 

X 

* 

13 

( 

6 

14 

# 

3 

15 

6 

6 

16 

-r 

G 

17 

— 

F 

18 

+ 

E 

19 

rcl 

5 

20 


G 

21 

V 

A 

22 

MEx 

5 

23 

-r 

G 

24 

= 

— 

25 

. T 

A 

26 

MEx 

5 

27 

) 

6 

28 

X 

• 

29 

stop 

0 

30 

rcl 

5 

31 

= 

— 

32 

stop 

0 

33 

rcl 

5 

34 

stop 

0 

35 
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ELASTIC AND 
PLASTIC SECTIONAL 
MODULI 

Solid circular section 




•697653 


Execution: 

r/RUN /ZJ RUN /Z p 


X 

• 

00 

( 

6 

01 

X 


02 

) 

6 

03 

X 

• 

04 

sto 

2 

05 

# 

3 

06 

4 

4 

07 

5 

5 

08 

= 

— 

09 

T 

A 

10 

D-*R 

3 

11 

stop 

0 

12 

rcl 

5 

13 

-r 

G 

14 

# 

3 

15 

• 

A 

16 

7 

7 

17 

5 

5 

18 

= 

— 

19 

stop 

0 

20 

V 

A 

21 

goto 

2 

22 

0 

0 

23 

0 

0 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ELASTIC AND 
PLASTIC SECTIONAL 
MODULI 

Thin walled circular tube 




(t small compared to r) 


Z e = 7rr 2 t 
Z p = 4r 2 1 

S = —= 1-273240 

7T 

Execution: 

r/RUN/t/RUN/Z e /RUN/Z p 


X 


00 

X 

• 

01 

stop. 

0 

02 

X 

• 

03 

sto 

2 

04 

# 

3 

05 

1 

1 

06 

8 

8 

07 

0 

0 

08 

= 

— 

09 

▼ 

A 

10 

D-*R 

3 

11 

stop 

0 

12 

rcl 

5 

13 

+ 

E 

14 

+ 

E 

15 

= 

— 

16 

stop 

0 

17 

▼ 

A 

18 

goto 

2 

19 

0 

0 

20 

0 

0 

21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ELASTIC AND 
PLASTIC SECTIONAL 
MODULI 

Thin I-section 



(thickness small compared to overall dimensions) 
Axis C v : Z e = ^ 



S= 1-5 

Execution: 

b/RUN/t f /RUN/Z e /RUN/Zp 


X 

* 

00 

X 

• 

01 

stop 

0 

02 


G 

03 

# 

3 

04 

3 

3 

05 

X 

* 

06 

stop 

0 

07 

# 

3 

08 

1 

1 

09 

* 

A 

10 

5 

5 

11 

= 

— 

12 

stop 

0 

13 

V 

A 

14 

goto 

2 

15 

0 

0 

16 

0 

0 

17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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ELASTIC AND 
PLASTIC SECTIONAL 
MODULI 

Thin l-section 


b 



Execution: 

h/ RUN/S/RUN/b/RUN /1/RUN / Z e / 
RUN /Z p / RUN /S 


sto 

2 

00 

X 

• 

01 

stop 

0 

02 

4 

G 

03 

# 

3 

04 

1 

1 

05 

2 

2 

06 

= 

— 

07 

▼ 

A 

08 

MEx 

5 

09 

X 


10 

( 

6 

11 

stop 

0 

12 

X 

• 

13 

stop 

0 

14 

4 

E 

15 

rcl 

5 

16 

4 

E 

17 

rcl 

5 

18 

4 

E 

19 

▼ 

A 

20 

MEx 

5 

21 

4 

G 

22 

rcl 

5 

23 

= 

— 

24 

▼ 

A 

25 

MEx 

5 

26 

) 

6 

27 

X 

* 

28 

stop 

0 

29 

rcl 

5 

30 

= 

— 

31 

stop 

0 

32 

rcl 

5 

33 

stop 

0 

34 

= 

— 

35 


86 



i 

00 



01 



02 



03 



04 



05 



06 



07 



08 



09 



10 



11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 
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How to use these programs 

Each program is arranged as follows: 

1. On the left of the page, explanatory information and the 
'execution sequence', the sequence of keystrokes necessary for 
running the program. Results displayed are printed in gold. 

2. In the first column on the right hand side of the page, the 
sequence of keystrokes which make up the program. 

3. In the second and third columns on the right hand side of the 
page, the program in check symbol and step number form 
(see section on checking the program). 


Notes 

1. Where a key has more than one function, the relevant function is 
printed as the keystroke in the first column 

COS 


e.g. the keystroke 8 may appear as 8, cos or arccos. 

arccos v 

2. The symbol ▼ within a program always refers to the key 

ChN / # 


•/EE/- 


3. The symbol # refers to [T] 

4. The abbreviation gin is 'go if neg' and so refers to the key [T] 


go if neg 


Entering the program 


To enter a program into the calculator: 


1. Press 


AT 


AT 


2 


0 


0 


go to 


Display shows step programmed 
at 00 in check symbol form as 
described below. 


2 . 

3. 


4. 


Press 


AT 


learn 

RUN 


Press the sequence of keys for 
the program as shown in the 
first column of the program 
page. 


Press 


C /CE 


No change in display. 

At each stage the step about to 
be overwritten is displayed. 
When the machine is first 
switched on every step is zero. 

Normal number display is 
resumed. 


5. 


Press 


at 




2 _ 
go to 




The step programmed at 00 will 
be displayed. 
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Checking the program 


Each of the programs in the library is shown in check symbol form in 
the second column on the right-hand side of the page. 

step 


Press 


at 


C/CE 


repeatedly, and at each stage the check symbol will 


appear on the left of the display with the step number on the right. 
Ignore the four zeros in the display. 


e.g. A.0000 03 

check step 

symbol number 


After stepping through the program, press 

before execution. 


AT 


AT 


2 


0 


0 


go to 


Finally, press c/c E and the program is ready for use. 


Correcting the program 


AT 


AT 


2 


If the check symbol for a particular step number is not as indicated 
in the last two columns of the program page: 

1. Press 


2 . 

3. 


go to 

followed by the step number if the appropriate step number is 
not already displayed. 

learn 

Press 


AT 


RUN 


4. 


5. 


Enter the correct keystroke. The display will then show the next 
step in the program. If this is also incorrect, enter the correct 
keystroke. At each stage, the step about to be overwritten will be 
displayed. 

When correction has been completed, press 


C /CE 


. Any step 


which has not been overwritten will not be affected. 
Press 


AT 


AT 


0 


go to 


Note 

To restore normal u se of the calculator after entering or checking 


the program, press C/ce 


Running the program 

Press the sequence of keys as shown in the program library in the 
execution sequence. Results displayed are printed in gold. 









































































REACTANCES 
AND IMPEDANCES 


Introduction 


General note: conventions: 

Voltage transfer ratios and current transfer 
ratios denoted by a v and a; are positive fractions 
0 < a < 1 

Expressed in dB as gain, A = 20 log a is —ve 

When expressed as an attenuation in dB, 

A is +ve and is given by A = —20 log a 

Power gain = a v a,= a 2 , so A = 10 log (a 2 ) 

= 20 log a 

Characteristic or design impedance = R 0 
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RESISTORS 
IN PARALLEL 

(capacitors in series) 
(inductors in parallel) 
(conductors in series) 


Pre-execution: 

0 / ay / sto / c /ce / ay / ay / goto / 0 / 0 / 


Execution: 

R, / RUN / R 2 / RUN / 


Ri ^2 

Rt + R 2 


/ R 3 / • • •/ Rn/ 


RUN /R 


parallel 


Alternative execution: 

To find resistor R 2 required to make parallel 
combination of R n and R 2 = R: 

R / RUN / R,/ AT / AY /+/- / RUN /R 2 

(R, must be greater than R) 


-f 

G 

00 

+ 

E 

01 

rcl 

5 

02 

= 

— 

03 

sto 

2 

04 

-4- 

G 

05 

= 

— 

06 

stop 

0 

07 

T 

A 

08 

goto 

2 

09 

0 

0 

10 

0 

0 

11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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REACTANCE 
- FREQUENCY 
CONVERSIONS 


Xc 27TfC coC 

(i) 

X L = 2;rfL = col_ 

(ii) 

c = 1 - 1 

27rfX c coX c 

(iii) 

27rf co 

(iv) 

f- 1 

2ttCX c 

(v) 

f= Xl 

27tL 

(vi) 

Execution: 




r 

■=■ / RUN / co 



or 

C / + / RUN / X c 

(i) 

f/RUN/ 

or 

L/RUN / X L 

(ii) 


or 

X c /-F/ RUN / C 

(iii) 


or 

-f/X l / RUN / L 

(iv) 

C/ RUN/X c 

/-/ 

RUN / f 

(v) 

L / RUN /-=-/ 

x L / 

RUN / f 

(vi) 


X 

• 

00 

# 

3 

01 

6 

6 

02 

• 

A 

03 

2 

2 

04 

8 

8 

05 

3 

3 

06 

1 

1 

07 

8 

8 

08 

5 

5 

09 

3 

3 

10 

-f 

G 

11 

-T 

G 

12 

stop 

0 

13 


G 

14 

= 

— 

15 

stop 

0 

16 

▼ 

A 

17 

goto 

2 

18 

0 

0 

19 

0 

0 

20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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MAGNITUDE AND 
PHASE OF IMPEDANCE 


Z = R + jX = |Z|e i0 

|Z| = -y/R 2 + X 2 <t> = arctan 

Execution: 

X / RUN / R / RUN / |Z| / RUN /</> 

For 0 in degrees, insert / ▼ / R-*D / after step 19. 


sto 

2 

00 

X 

• 

01 

+ 

E 

02 

( 

6 

03 

stop 

0 

04 

4- 

G 

05 

▼ 

A 

06 

MEx 

5 

07 

-r 

G 

08 

= 

— 

09 

T 

A 

10 

arctan 

9 

11 

T 

A 

12 

MEx 

5 

13 

X 

• 

14 

) 

6 

15 

= 

— 

16 

V5T 

1 

17 

stop 

0 

18 

rcl 

5 

19 

stop 

0 

20 

▼ 

A 

21 

goto 

2 

22 

0 

0 

23 

0 

0 

24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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RESISTIVE VOLTAGE 
DIVIDER 


Ri 

o—-A/VNA- 


I 


I 


’^2 e 2 


To find R 1( R 2 given R = R, + R 2 and a or A 
where a =— A = 20 log — 

e i e i 

Execution: 

R / RUN/a/RUN/ R 2 /RUN/ R, 

If A rather than a is given, see program on 
page 13. 


— 

F 

00 

( 

6 

01 

X 

* 

02 

stop 

0 

03 

) 

6 

04 

stop 

0 

05 

— 

— 

06 

stop 

0 

07 

▼ 

A 

08 

goto 

2 

09 

0 

0 

10 

0 

0 

11 



12 



13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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RESISTIVE VOLTAGE 
DIVIDER 



Given total resistance and attenuation, to find 
resistor values: 


R = R, + R 2 

a = ^, A = 20 log — dB 

e i eT 

Execution: 

R / RUN / A/ RUN /a / RUN / R 2 / RUN / R 1 / 
RUN / A / RUN / a / RUN / R 2 / RUN / R, / 
RUN /A/- ■ • 

If a is given, execute as below, or see shorter 
program on page 12. 

R / RUN / at / at / goto / 13 / a / RUN / 

R 2 / RUN / R t / RUN / av / at / goto / 13 / 
a/RUN /R 2 /• ■ ■ 


sto 

2 

00 

stop 

0 

01 

-T 

G 

02 

# 

3 

03 

8 

8 

04 

* 

A 

05 

6 

6 

06 

8 

8 

07 

5 

5 

08 

8 

8 

0~9 

9 

9 

10 

— 

F 

11 

= 

— 

12 

V 

A 

13 

e x 

4 

14 

stop 

0 

15 

X 


16 

rcl 

5 

17 

— 

F 

18 

stop 

0 

19 

rc! 

5 

20 

— 

F 

21 

= 

— 

22 

stop 

0 

23 

V 

A 

24 

goto 

2 

25 

0 

0 

26 

2 

2 

27 



28 



29 



30 



31 



32 



33 



34 



35 
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RESISTIVE L-PAD 

MATCHING 

IMPEDANCES 



R, = V R .(R,-R b ) R 2 = 5i£» 

a. . R ‘~ R| A» » 20 log a. 

a ' = R^*R; A,-20loga, 

g = a v a, G = 10loga v a| 

Pre-execution: 

at / at / goto / 0 / 0 / if previous run 
incomplete 


sto 

2 

00 

X 

• 

01 

— 

F 

02 

( 

6 

03 

stop 

0 

04 

X 

* 

05 

rcl 

5 

06 

) 

6 

07 

sto 

2 

08 

= 

— 

09 

\Ax~ 

1 

10 

stop 

0 

11 

-r 

G 

12 

X 

* 

13 

rcl 

5 

14 

X 

* 

15 

stop 

0 

16 

4* 

G 

17 

X 

• 

18 

rcl 

5 

19 

+ 

E 

20 

sto 

2 

21 

# 

3 

22 

1 

1 

23 

= 

— 

24 

%/*■ 

1 

25 

— 

F 

26 

( 

6 

27 

V 

A 

28 

MEx 

5 

29 

V*“ 

1 

30 

) 

6 

31 

-f 

G 

32 

stop 

0 

33 

= 

_ 

34 

stop 

0 

35 
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Execution: 


R J RUN/R b / RUN /H, /RUN /R 2 /RUN / 
y/g ' / and continue as required with one of the 
following sequences: 

(i) To find a v , A v , A|, G: 

AT / AT / MEx / RUN / a v / at / In / X / 
8-68589/ = /A v 

AT / AT / MEx / AT / In / X / 8-68589 / 
+ /G 

/ — / at / rcl / = / A, or 

(ii) To find a u : 

/ at / rcl / RUN /a v or 

(iii) To find a,: 

/I / X/ at / rcl / RUN /a* or 

(iv) To find g: 

/ 1 / X / RUN / g or 

(v) To find a v , g, a-,: 

/ at / at / MEx / RUN /a v 
/ at / at / MEx / X / = /g 
/ ■*•/ AT / rcl / = /a. 
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RESISTIVE 
ATTENUATOR 
SECTIONS, T-TYPE 



5Rl 

--WV— 


2Rl 


5R3 

-AAA/^-o 


Unbalanced T-network Balanced H-network 

Design attenuation = a (< 1) = % / r a^aj 
Power attenuation = A = —20 log a 

g 

Forward voltage transfer ratio a v =- 
Forward current transfer ratio a, = ap 



X 

• 

00 

( 

6 

01 

X 

* 

02 

— 

F 

03 

+ 

E 

04 

# 

3 

05 

1 

1 

06 

= 

— 

07 

sto 

2 

08 

-f 

G 

09 

) 

6 

10 

+ 

E 

11 

X 


12 

stop 

0 

13 

— 

F 

14 

stop 

0 

15 

+ 

E 

16 

( 

6 

17 

# 

3 

18 

2 

2 

19 

— 

F 

20 

rcl 

5 

21 

4- 

G 

22 

rcl 

5 

23 

X 


24 

stop 

0 

25 

) 

6 

26 

sto 

2 

27 

= 

— 

28 

stop 

0 

29 

X 


30 

4 

G 

31 

X 


32 

rcl 

5 

33 

— 

F 

34 

stop 

0 

35 
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Pre-execution: use as required: 

(i) given R a and R b , find and notep and R 0 
R a / AT / Sto / + / R b / = / AT /-y/x Ip / 
■=■ / X / at / rcl / = / R 0 

(ii) given A, find and note a 

A / - / -5- / 8-68589 / = / at / at / e x /a 
AT / AT / goto / 0 / 0 / 

Execution: 

a / RUN /k 2 / R 0 / RUN /R 2 / RUN /k, / R 0 / 
X / p / RUN /R, Ip/ RUN /R 2 / = / R 3 

Special case, p = 1: 

a / RUN /k 2 / R 0 / RUN / R 2 / RUN /k, / R„/ 
RUN /R, = R 3 
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RESISTIVE 
ATTENUATOR 
SECTIONS, ttTYPE 

r 2 

----VW- 



Unbalanced it section Balanced 0 section 


R, 


=7^ 


Ra _ Rp 
R o Rb 


a v - forward voltage transfer ratio = — 

P 

a, = forward current transfer ratio = ap 
a = design attenuation = ^a^ 

A = power attenuation = -20 log a (in dB) 



R?t = 


82 ■ [ ] R ° 


Pre-execution (as required): 

(i) calculate and note p: 

R J ** /sto /-s-/ R b / = / AT /y/x/p 
and continue to find R c : 

/ + /XI at / rcl / = / R 0 

(ii) find and note a if given A: 

/ A / — / -J- / 8-68589 1 = 1 at / at / e x /a 


X 

* 

00 

( 

6 

01 

X 

• 

02 

— 

F 

03 

+ 

E 

04 

# 

3 

05 

1 

1 

06 

= 

— 

07 

sto 

2 

08 

-r 

G 

09 

) 

6 

10 

+ 

E 

11 

4- 

G 

12 

X 


13 

stop 

0 

14 

4- 

G 

15 

stop 

0 

16 

— 

F 

17 

+ 

E 

18 

( 

6 

19 

# 

3 

20 

2 

2 

21 

— 

F 

22 

rcl 

5 

23 

4- 

G 

24 

rcl 

5 

25 

4- 

G 

26 

stop 

0 

27 

) 

6 

28 

sto 

2 

29 

4- 

G 

30 

= 

— 

31 

stop 

0 

32 

= 

_ 

33 

= 

_ 

34 

= 

— 

35 
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set program: 

AT / AT / goto / 0 / 0 / 


Execution: 

a / RUN / R 0 / RUN / R 2 / RUN / p / * / R 0 / 

RUN / R, 

Post-execution: 

p/X/X/AT /rcl/ — / at / ( / R 2 / ■=" / at/)/ 

*/=/r 3 

Special case : p = 1: 

Execution: 

a / RUN/ R 0 / RUN/ R 2 /RUN / R 0 / RUN / 

Ri = R 3 
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RESISTOR NETWORKS 

n to T and T to II transformations 



r a r b r c 

R ° ~ R a + Rb + R C = Rl R 2 + R 2 R 3 + R 3 Rl 

R i Rc = ^2 Rb = R 3 Ra = Ro 

Execution: 

(i) R 0 known: 

Ro / X / = / AT / StO / AT / AT / gotO / 0 / 0 / 

(ii) II to T: 

AT / AT / goto / O / 9 / R a / RUN / R B / RUN / 
R c / RUN/RUN / 

(ii) T to II: 

at / at / goto / 0 / 9 / R 1 / - / RUN / R 2 / 
-/RUN / R 3 /-/RUN/-/RUN / 

Follow any of (i), (ii) or (iii) with either: 

R a / RUN / R 3 / R B / RUN / R 2 / R c / RUN / R, 
or: 

Ri/RUN/ R c: / R 2 / RUN / R B / R 3 / RUN / R A 


-r 

G 

00 

X 

• 

01 

rcl 

5 

02 

= 

— 

03 

stop 

0 

04 

▼ 

A 

05 

goto 

2 

06 

0 

0 

07 

0 

0 

08 

X 

• 

09 

sto 

2 

10 

( 

6 

11 

stop 

0 

12 

+ 

E 

13 

rcl 

5 

14 


F 

15 


A 

16 

MEx 

5 

17 

) 

6 

18 

X 

* 

19 

( 

6 

20 

stop 

0 

21 

+ 

E 

22 

rcl 

5 

23 

— 

F 

24 

Y 

A 

25 

MEx 

5 

26 

) 

6 

27 

-T 

G 

28 

rcl 

5 

29 

stop 

0 

30 

= 

— 

31 

sto 

2 

32 

stop 

0 

33 

= 

— 

34 

= 

— 

35 
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LATTICE 

ATTENUATOR 

SECTIONS 


Ri 



(must be balanced, constant impedance) 

a v = a, = a A = —20 log a 

Characteristic impedance = R 0 


Ri 


1 -a 
1 + a 


Ro 



Execution: 


either 

/ at / at / goto / 1 / 3/ a/ RUN/R 0 /RUN/ 
R 2 / RUN / R, 


or 

/A / RUN / R 0 / RUN / R 2 / RUN / R, 


— 

F 

00 


G 

01 

# 

3 

02 

8 

8 

03 

* 

A 

04 

6 

6 

05 

8 

8 

06 

5 

5 

07 

8 

8 

08 

9 

9 

09 

= 

— 

10 

▼ 

A 

11 

e x 

4 

12 

+ 

E 

13 

# 

3 

14 

i 

I 

15 

-r 

G 

16 

( 

6 

17 

— 

F 

18 

# 

3 

19 

2 

2 

20 

— 

F 

21 

) 

6 

22 

X 

• 

23 

sto 

2 

24 

stop 

0 

25 

= 

~ 

26 

stop 

0 

27 

-r 

G 

28 

( 

6 

29 

rcl 

5 

30 

X 

• 

31 

) 

6 

32 

= 

_ 

33 

stop 

0 

34 

= 

— 

35 
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FILTERS 

Simple filters 




Normalised to design impedance R 0 , 

co 0 = cut-off angular frequency (low-pass or 

high pass) 


22 


co 0 = centre frequency (band-pass or band stop) 
co 2 = upper cut-off frequency (band-pass or band stop) 
co, = lower cut-off frequency (band-pass or band stop) 

co 0 = ^Ul« 2 

CO 2 C01 

n = —- - 

Definitions: 

CO 

x = normalised frequency parameter = — 

co 0 

1 

v = deviation parameter = x (low pass) =-(high pass) 

1 

x- 

x n 

v =- (band pass) = -- (band stop) 

n 

-x 

x 


Design: 

Low-pass and high pass: 

L = “ C = —p- 

co 0 co 0 R 0 

Use frequency-reactance conversion program (page 10) 
Band-pass and band stop: 

C p = co 0 = 1 

L s = —, C s = nC L„ = nL, C p = — 

s n ' s p p n 

Use frequency-reactance conversion program (page 10) 







































FILTERS 

Simple filters (contd.) 


Performance: 

A = attenuation (dB) = —8-68589 In A + v 2 
d> = phase = —arctan v 

Execution: 

Band-pass: 

x / RUN / n / RUN /v / RUN / A / RUN / <p 
Band stop: 

x / RUN / n / -i- / — / RUN / v / RUN / A / 

RUN td> 

Low pass: 

AT / AT /goto / I / 0 / x / RUN / A / RUN / 
0 (v = x) 

High pass: 

AT / AT / goto /0/8/x/^/-/ RUN /v / 
RUN /A / RUN /0 

To obtain x, pre-execution could be: 
f/^/f Q / = / or io / + / oj 0 / = f 


sto 

2 

00 

— 

F 

01 

( 

6 

02 

rcl 

5 

03 

-r 

G 

04 

) 

6 

05 

-f 

G 

06 

stop 

0 

07 

= 

- 

08 

stop 

0 

09 

sto 

2 

10 

X 


11 

+ 

E 

12 

# 

3 

13 

1 

1 

14 

= 

— 

15 


1 

16 

In 

4 

17 

— 

F 

18 

X 


19 

# 

3 

20 

8 

8 

21 


A 

22 

6 

6 

23 

8 

8 

24 

5 

5 

25 

8 

8 

26 

9 

9 

27 

= 

— 

28 

stop 

0 

29 

rcl 

5 

P0 

▼ 

A 

31 

arctan 

9 

32 

— 

F 

33 

= 

— 

34 

stop 

0 

35 
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FILTERS 

The twin-T network 


Ro/a aRo 



Design: 

CO 

co Q = null frequency x = — 

<^o 

co 0 C 0 R 0 = 1 (use reactance frequency program) 

1 n 

b = a + “ v=- t 

a 1 

x- 

x 
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FILTERS 

The twin-T network (contd.) 


Performance: 

The Y-matrix is, in terms or normalised variables: 


Y = 


1 +jx 


1 +jx 


x —- 


2a + j 


-J 


x- 

X 


X- 

X 

- J “lb- 

1 

o x - 

-+j—- 

a J b 


AY = 


2G 

jx 


2a + ju — ju 
2 


-ju 


-+ju 


with zero source impedance and load admittance (the usual 
conditions) 


_ y 2 i 


ju 


1 


2b 


y 22 2 . 1 + jv 

r ju 


a|x —— 


Attenuation in dB = A = -8-68589 In J 1 + v 2 
Phase, (j) = — arctan v 

2b 

Use simple filters program with n = — (see page 24) 

a 
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FILTERS 

The twin-T network (contd.) 


Design case: 

Given: 

Lower cut-off frequency = , 

null frequency = co 0 . 

Find: 

a, hence component values, hence frequency 
response curve. 



Execution: 

x, /RUN/ n /RUN /a/RUN /b 


sto 

2 

00 

-r 

G 

01 

— 

F 

02 

rcl 

5 

03 

— 

F 

04 

stop 

0 

05 

# 

3 

06 

2 

2 

07 

-r 

G 

08 

+ 

E 

09 

= 

— 

10 

V*" 

1 

11 

stop 

0 

12 

sto 

2 

13 

-r 

G 

14 

+ 

E 

15 

rcl 

5 

16 

= 

~ 

17 

stop 

0 

18 

T 

A 

19 

goto 

2 

20 

0 

0 

21 

0 

0 

22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 


. 

35 
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FILTERS 

Single tuned circuit with losses 



1 

/- 

n /lc 

h =_= JL 

s WoL Ro 
d = d s +d p 



Normalised variables: 
Normalised frequency = x = — 

<^o 


deviation = v = Q ( x- 

x 


Normalised admittance: 


y = YQR 0 = 


1 


dp + x 2 + d? 


+ jx 1 - 


1 


x 2 + d? 


Normalised impedance: 


z-l. 

y 


iQR n QR, 


• = d 


dj, + 


x 2 + d 2 


+ jx 1 - 


1 


x 2 + d 2 
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FILTERS 

Single tuned circuit with losses (contd.) 


For Q > 1, (or Q > 10), the frequency response 
is closely approximated by 

4 - = Q (1 +v 2 r / ’ 

|R 0 

and can be found using the simple filters program. 

For exact calculation, where Q < 10: 

series resonant frequency = co Q 
x 0 = 1 

in-phase resonant frequency = co r 
x r = v // ' 1 -ds 

parallel resonant frequency = co p 
Xp = L (1 +2d s d p + 2d 2 ) y =-d 2 ] ,/a 

impedance at co r = R r = QR 0 

Resonant frequencies 

Execution: 

d,/ RUN /x,/d p / RUN / x p 


sto 

2 

00 

X 

• 

01 

— 

F 

02 

+ 

E 

03 

# 

3 

04 

1 

1 

05 

= 

— 

06 

vr 

1 

07 

stop 

0 

08 

+ 

E 

09 

rcl 

5 

10 

X 

* 

11 

rcl 

5 

12 

+ 

E 

13 

+ 

E 

14 

# 

3 

15 

i 

1 

16 

= 

— 

17 

V*- 

1 

18 

— 

F 

19 

( 

6 

20 

rcl 

5 

21 

X 

• 

22 

) 

6 

23 

= 

— 

24 


1 

25 

stop 

0 

26 

▼ 

A 

27 

goto 

2 

28 

0 

0 

29 

0 

0 

30 



31 



32 



33 



34 



35 


29 









































































FILTERS 

Single tuned circuit with losses (contd.) 


Amplitude and phase response - 

Preliminary program 

To find a and b: 
a = 2 + d 2 — d 2 
b = 1 + 2d p d s + 2d 2 

Execution: 

d p / RUN / d s / RUN / b / RUN / a 


sto 

2 

00 

X 

• 

01 

— 

F 

02 

+ 

E 

03 

( 

6 

04 

stop 

0 

05 

+ 

E 

06 

▼ 

A 

07 

MEx 

5 

08 

X 

• 

09 

rcl 

5 

10 

+ 

E 

11 

+ 

E 

12 

# 

3 

13 

1 

1 

14 

= 

— 

15 

stop 

0 

16 

rcl 

5 

17 

X 

* 

18 

) 

6 

19 

+ 

E 

20 

# 

3 

21 

2 

2 

22 

= 

— 

23 

stop 

0 

24 

▼ 

A 

25 

goto 

2 

26 

0 

0 

27 

0 

0 

28 



29 



30 



31 



32 



33 



34 



35 


30 


FILTERS 

Single tuned circuit with losses (contd.) 


Amplitude and phase response 


!l " d [ u2 - a+ ^] 

x (u 2 — 1) 


<j) = —arctan 


u 2 d p + d s 


where u 2 = x 2 + d 2 


Execution: 


d = d c + d P 


x / RUN / d s / RUN / b/ RUN/a / RUN / 
d / |z| / X / iQR 0 / = / e / d p / RUN / d J 
RUN / X / RUN / at / at / arctan / 0 


X 

• 

00 

+ 

E 

01 

( 

6 

02 

stop 

0 

03 

X 

• 

04 

) 

6 

05 

+ 

E 

06 

sto 

2 

07 

( 

6 

08 


G 

09 

X 

• 

10 

stop 

0 

11 

) 

6 

12 

— 

F 

13 

stop 

0 

14 

■f 

G 

15 

= 

— 

16 

V*" 

1 

17 

X 

• 

18 

stop 

0 

19 

X 

• 

20 

rcl 

5 

21 

+ 

E 

22 

stop 

0 

23 

-r 

G 

24 

X 

• 

25 

( 

6 

26 

# 

3 

27 

1 

1 

28 

— 

F 

29 

rcl 

5 

30 

) 

6 

31 

X 

• 

32 

stop 

0 

33 

= 

— 

34 

stop 

0 

35 
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TUNED COUPLED 
CIRCUITS 

Response of secondary circuit 



Case of two tuned circuits having equal 
inductances and capacitances but unequal 
Q-factors 


Normalised response in secondary (relative 
to output at co 0 when s = 1) 


_2s_ 

1 + s 2 + jvb — v 2 


where 





b = 

s = 


1 

vTc 



k v / o7c^ 



Qi 


QJqL 

Ri 


k = coupling factor 
•a= v /bT2 


M 

\A- 1 *-2 


M 

L 



X 


00 

+ 

E 

01 

# 

3 

02 

1 

1 

03 

— 

F 

04 

( 

6 

05 

stop 

0 

06 

X 


07 

) 

6 

08 

= 


09 

sto 

2 

10 

stop 

0 

11 

— 

F 

12 

X 

• 

13 

stop 

0 

14 

— 

G 

15 

rcl 

5 

16 

X 

* 

17 

( 

6 

18 

T 

A 

19 

arctan 

9 

20 

stop 

0 

21 

rcl 

5 

22 

) 

6 

23 

X 


24 

+ 

E 

25 

( 

6 

26 

rcl 

5 

27 

X 

• 

28 

) 

6 

29 

= 

— 

30 

V* 

1 

31 


G 

32 

+ 

E 

33 

X 

• 

34 

stop 

0 

35 
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Magnitude: 

l l - 2s 

IV21 [(1+s 2 -v 2 ) 2 + b 2 v 2 P 


_2s_ 

(1 +s 2 ) 2 -2v 2 (s 2 --|) + v 4 


Phase: 


0 = —arctan 


v-^/b + 2 
1 + s 2 — v 2 


Execution: 

S/ RUN /v / RUN / v/ RUN / a/ RUN / 0 / RUN / s / = / |y 2 | 

/Vote: as |v| increases, 0 changes sign. Correct value of 0 when this 
happens is obtained by subtracting ?r if v is positive, adding 7 r if v is 
negative. 

To obtain 0 in degrees, use / at / at / R-»D / before final / RUN /. 
Correct sign change by subtracting 180°. 
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TUNED COUPLED 
CIRCUITS 

Design for linear phase response 



v 


Theory: 


<f> = —arctan 


v7b + 2 

1 + S 2 — V 2 


d 0 
dv 


yb + 2 (1 +s 2 + v 2 ) 

(1 + s 2 ) — 2v 2 (s 2 — + v 4 


For maximally linear phase/frequency 
characteristic, the condition is: 



For maximum energy transfer the 
condition is s = 1 (critical coupling), hence 
to satisfy both conditions, b = 4 is optimum. 

The frequency response is: 


ly 2 l = 


(b + 2) 2 
3 


2s 


+ v 2 


b + 2 



2 

(4 + 2v 2 + v 4 ) y “ 


for b = 4 


+ 

E 

00 

# 

3 

01 

2 

2 

02 

-r 

G 

03 

# 

3 

04 

3 

3 

05 

— 

F 

06 

sto 

2 

07 

# 

3 

08 

1 

1 

09 

= 

— 

10 


1 

11 

stop 

0 

12 

-r 

G 

13 

( 

6 

14 

X 


15 

— 

F 

16 

+ 

E 

17 

rcl 

5 

18 

) 

6 

19 

X 

• 

20 

( 

6 

21 

# 

3 

22 

3 

3 

23 

X 


24 

rcl 

5 

25 

= 

— 

26 

\/X 

1 

27 

) 

6 

28 

= 

— 

29 


A 

30 

arctan 

9 

31 

▼ 

A 

32 

goto 

2 

33 

1 

1 

34 

2 

2 

35 


34 


4h = -arctan ^ + 2 = 

—- v2 

Program computes s and 0. 
v 1 can be obtained by post-execution sequence. 

Execution: 

b / RUN / s / v / RUN / 02 (repeat for any other values of v) 

/ v/ RUN / 0 2 • ' • 

Bandwidth to 1% deviation from phase linearity: v p = -49601 
02 = T1394443 for 1% deviation from phase linearity. 
Attenuation at v p = —1-16G8 dB relative to centre frequency. 


v 

—arctan -- 

2 — v 2 


given b. 










































































TUIMED COUPLED 
CIRCUITS - 

Bandwidth to given attenuation 



_ y a 

Let a ~ V ' the attenuat i° n at v a 
y o 

relative to that at v = 0. 


Then 



b 

2 




+ (1 + s 2 ) 2 



The + sign gives values outside the peaks. 

The — sign gives values inside the peaks, 
but only for s 2 >|and a> 1 (see dashed line). 

If Va > Ym or these conditions are not 
observed an error will be indicated. 



X 

• 

00 

-r 

G 

01 

— 

F 

02 

# 

3 

03 

1 

1 

04 

X 

• 

05 

( 

6 

06 

stop 

0 

07 

X 

* 

08 

+ 

E 

09 

sto 

2 

“10 

# 

3 

11 

1 

1 

12 

X 


13 

) 

6 

14 

4- 

E 

15 

( 

6 

16 

stop 

0 

17 

— 

F 

18 

4* 

G 

19 

# 

3 

20 

2 

2 

21 

+ 

E 

22 

rcl 

5 

23 

X 

* 

24 

sto 

2 

25 

) 

6 

26 

= 

— 

27 

1 

1 

28 

T 

A 

29 

MEx 

5 

30 

stop 

0 

31 

rcl 

5 

32 

= 

— 

33 


1 

34 

stop 

0 

35 


36 


To find a from A dB: 

A / - / -s- / 8-68589 / =7 ay / at / e x /a 


Execution: 

a / RUN / s / RUN / b / RUN / + / RUN /v a outside peaks 

a/ RUN / s/ RUN /b / RUN I-I RUN /v„ inside peaks 

Error symbols: 

If an error symbol occurs after / b / RUN / but before entering + or 
—, the value of a entered is too large « ratio of peak to valley). 

If an error symbol occurs after / d / — / RUN /, either 
s 2 >-^ or a< 1. 

Post execution: 

To find x from v: 

v/-WQ/X / ay / sto / — / 1 / = / ay /\/x7 + / ay / rcl / = / x, / 
+ / = / x 2 

(multiply Xt or x 2 by f Q to obtain f n or f 2 ) 































































TUNED COUPLED 
CIRCUITS 

Design for given bandwidth and pass-band 
ripple 



Peak to valley ratio: 


a = 1 0 0-1A = e 4-34294 
a = Vm = 1 +S 2 

where s = k -v/CL Q 2 , b = — + — 

Q 2 Q, 

coupling for given peak to valley ratio: 



Location of peaks: 



Location of pass-band edges: 
Vi = v /2s 2 - b = y/2 v m 


X 

• 

00 

-r 

G 

01 

— 

F 

02 

+ 

E 

03 

# 

3 

04 

1 

1 

05 

= 

— 

06 

Vx- 

1 

07 

sto 

2 

08 

— 

F 

09 

+ 

E 

10 

# 

3 

11 

1 

1 

12 

-f 

G 

13 

( 

6 

14 

stop 

0 

15 

-f 

G 

16 

# 

3 

17 

2 

2 

18 

+ 

E 

19 

▼ 

A 

20 

MEx 

5 

21 

) 

6 

22 

~ 

G 

23 

— 

F 

24 

▼ 

A 

25 

MEx 

5 

26 

+ 

E 

27 

= 

— 

28 

7>r j 

1 

29 

stop 

0 

30 

y 

A 

31 

MEx 

5 

32 


1 

33 

stop 

0 

34 

= 

— 

35 
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Relation of Q to v, and band width: 

*2 — T 1 

= co_ = L 

Wo fo 


f 2 = upper limit of pass-band 
f., = lower limit of pass-ba nd 
f Q = centre frequency = - v /f 1 f 2 

To find a from A: 

A / ■=" / 4-34294 1 = 1 at / at / e x / a 

Execution: 

Either: 

a / RUN / b / RUN / v / X / f Q /^/ at / ( / f 2 / — / f 1 / at /) / = / 
Q / RUN / s / ■=■ / at / rcl / = / k 

Or: 

a/ RUN /b / RUN /v, / RUN /s 
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LINEAR CIRCUIT 
THEORY 

Simple L-R or C—R circuit 



r = CR or r = — 

R 

_t_ 

Charge: V c (t) = V 0 (1 -e T ) 

t_ 

Discharge: V d (t) = V 0 e T 
Pre-execution: 

R / X / C / = / AT / Sto / or 

L/"h/R/ = / at / sto / or 

r / AT / Sto / AT / AT / goto / 0 / 0 / 

Execution: 

t/ RUN / V 0 / RUN / V,, { t ) 


-T 

G 

00 

rcl 

5 

01 

— 

F 

02 

= 

— 

03 

▼ 

A 

04 

e x 

4 

05 

X 

• 

06 

stop 

0 

07 

= 

— 

08 

stop 

0 

09 

v 

A 

10 

goto 

2 

11 

0 

0 

12 

0 

0 

13 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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LINEAR CIRCUIT 
THEORY 

Simple L—R or C—R circuit (contd.) 


Pre-execution: 

R / X / C / = / at / sto / or 

L / -F / R / = / at / sto / or 

r /at/ sto / at / at / goto / 0 / 0 / 

Execution: 

t/RUN / V Q / RUN / V c (t) 


“T 

G 

00 

rcl 

5 

01 

— 

F 

02 

= 

— 

03 

T 

A 

04 

e x 

4 

05 

— 

F 

06 

+ 

E 

07 

# 

3 

08 

i 

1 

09 

X 

* 

10 

stop 

0 

11 

= 

— 

12 

stop 

0 

13 

V 

A 

14 

goto 

2 

15 

0 

0 

16 

0 

0 

17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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LINEAR CIRCUIT 
THEORY 

Simple L—R or C—R circuit (contd.) 


Pre-execution: 

R / X / C / = / at / sto / or 

L/^/R/=/ at / sto / or 

T /AT/ Sto / AT / at / goto / 0 / 0 / 

Execution: 

t / RUN / V 0 / RUN / V d (t) / V 0 / RUN / V c (t) 


4- 

G 

00 

rcl 

5 

01 

— 

F 

02 

= 

— 

03 

T 

A 

04 

e x 

4 

05 

X 


06 

stop 

0 

07 

— 

F 

08 

stop 

0 

09 

— 

F 

10 

= 

— 

11 

stop 

0 

12 

▼ 

A 

13 

goto 

2 

14 

0 

0 

15 

0 

0 

16 



17 



18 



19 



20 



21 



22 



23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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LINEAR CIRCUIT 
THEORY 

Damping factor from transient response 



Note: This formula applies to ideal 2nd-order 
systems of all kinds. 


Pre-execution: 

To enter first set of values 
at / at / goto / 0 / 0 / 

Execution: 

E pk / RUN / E / RUN / y/ RUN / k 
Ep k / RUN/y'/RUN/k' 

(continue for other values of E pk at same E) 


— 

F 

00 

stop 

0 

01 

sto 

2 

02 

-r 

G 

03 

rcl 

5 

04 

= 

— 

05 

stop 

0 

06 

In 

4 

07 

— 

F 

08 

4- 

G 

09 

# 

"3 

10 

3 

3 

11 

• 

A 

12 

1 

1 

13 

4 

4 

14 

1 

1 

15 

5 

5 

16 

9 

9 

17 

3 

3 

18 

4- 

G 

19 

( 

6 

20 

X 

* 

21 

4- 

E 

22 

# 

3 

23 

i 

1 

24 

= 

— 

25 

V* 

1 

26 

) 

6 

27 

= 

— 

28 

stop 

0 

29 

— 

F 

30 

rcl 

5 

31 

T 

A 

32 

goto 

2 

33 

0 

0 

34 

3 

3 

35 
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LINEAR CIRCUIT 
THEORY 

Time taken to reach given voltage 


* _ - v d (t) / 

t d = ~T In , t c = -r In I 1 

Pre-execution: 

—T / AT / StO / 

L/ + /R/=/ AT /sto/ 
r / AT / sto / AT / AT / goto / 0 / 0 / 

Execution: 

v(t) / RUN / V 0 / RUN / t d / RUN /t c 

Special case: 

R ise-time — 

Compute for v(t) = 0-1V o t r = t d - t c = 2-19714r 



- 

G 

00 

stop 

0 

01 

— 

F 

02 

( 

6 

03 

In 

4 

04 

X 

• 

05 

rcl 

5 

06 

= 

— 

07 

stop 

0 

08 

# 

3 

09 

1 

1 

10 

= 

— 

11 

) 

6 

12 

— 

F 

13 

= 

— 

14 

In 

4 

15 

X 

* 

16 

rcl 

5 

17 

= 

— 

18 

stop 

0 

19 

▼ 

A 

20 

goto 

2 

21 

0 

0 

22 

0 

0 

23 



24 



25 



26 



27 



28 



29 



30 



31 



32 



33 



34 



35 
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FULL-WAVE 
RECTIFIER WITH 
CAPACITOR 
SMOOTHING 



The diode conducts from 0^ to 0 2 in each 
input cycle where 


cos 0 2 = — 


I 

coCE 


sin 0-, + x 0, = sin (arccos x) — x arccos x = k 


This program finds 0 2 and then calculates 0■, 
using the Newton-Raphson iterative formula 


0; = 


0i cos 0! — sin 0-, + k 
COS 0-| + x 


Pre-execution: 

AT / AT / gOtO / 0 / 0 / 


Execution: 
x/RUN / k 

3-14159/- / at / rcl / = / 0 2 
/ at / rcl / 7r — 0 2 (used as starting value 0 t) 
0i / RUN / k / RUN / x / RUN / 0', 

repeat until convergence obtained. 

(0i is also in memory) 

Given 0i and 0 2 all the useful circuit 
parameters can be calculated, (see over) 


sto 

2 

00 

▼ 

A 

01 

arccos 

8 

02 

X 

• 

03 

▼ 

A 

04 

MEx 

5 

05 

— 

F 

06 

+ 

E 

07 

( 

6 

08 

rcl 

5 

09 

sin 

7 

10 

> 

6 

11 

= 

— 

12 

stop 

0 

13 

sto 

2 

14 

cos 

8 

15 

X 

* 

16 

rcl 

5 

17 

— 

F 

18 

( 

6 

19 

rcl 

5 

20 

sin 

7 

21 

> 

6 

22 

+ 

E 

23 

stop 

0 

24 

-r 

G 

25 

( 

6 

26 

rcl 

5 

27 

cos 

8 

28 

+ 

E 

29 

stop 

0 

30 

V 

A 

31 

goto 

2 

32 

1 

1 

33 

1 

1 

34 



35 
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RECTIFIER WITH 

CAPACITIVE 

SMOOTHING 


Ripple voltage: 
v rP k-pk= E (1 — sin 0,) 

Post execution: 

at / sin / — / + / 1 / X / E / = / v r pk -pk 

Peak rectifier current: 

i d pk = I + coCE cos 0-, =1^1+ — QS j 

Post execution: 

AT / rcl / AT / cos / * / X / + / 1 / x / i / = / j dPk 
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RECTIFIER WITH 

CAPACITIVE 

SMOOTHING 


Calculate 0! and 0 2 using program given (page 45). 

Mean rectified voltage: 

_ 2 

e 2 = —E sin a (cos b' + b' sin b') 

7r 

whena .^i 

_ 0i~02 
2 

Pre-execution: 

01 / + / 02 / AT / sto / * / 2 / — / a / AT / at / 
MEx/ + / b 

Execution: 

/ RUN / E / = / 


( 

6 

00 

# 

3 

01 

1 

1 

02 

* 

A 

03 

5 

5 

04 

7 

7 

05 

0 

0 

06 

8 

8 

07 

= 

— 

08 

T 

A 

09 

MEx 

5 

10 

sin 

7 

11 

~ 

G 

12 

rcl 

5 

13 

= 

— 

14 

T 

A 

15 

MEx 

5 

16 

) 

6 

17 

= 

— 

18 

T 

A 

19 

MEx 

5 

20 

X 


21 

( 

6 

22 

rcl 

5 

23 

sin 

7 

24 

X 

• 

25 

rcl 

5 

26 

= 

— 

27 

T 

A 

28 

MEx 

5 

29 

COS 

8 

30 

+ 

E 

31 

rcl 

5 

32 

) 

6 

33 

X 

• 

34 

stop 

0 

35 
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TRANSFER 
FUNCTION OF 
LONG-TAILED PAIR 



5 v = 5I t „(--± 

q v - si 


61 

I 


,1 - 


/ q5V \ 

exp [tt) 


q5V\ 
kT / 


exp | ) + 1 


SV 0 =Z l 5I 

q = electronic charge = 1-602192 x 10" 19 C 
k = Boltzmann's constant = 1-380622 x 10' 23 JIC 1 
T = absolute temperature (°C + 273-15) 

IR 

V L = —— (if load is resistive) 


X 

• 

00 

# 

3 

01 

8 

8 

02 

• 

A 

03 

6 

6 

04 

1 

1 

05 

7 

7 

06 

1 

1 

07 

• 

A 

08 

• 

A 

09 

5 

5 

10 

= 

— 

11 

sto 

2 

12 

stop 

0 

13 

-T 

G 

14 

rcl 

5 

15 

= 

— 

16 

T 

A 

17 

e* 

4 

18 

— 

F 

19 

# 

3 

20 

1 

1 

21 

-f- 

G 

22 

( 

6 

23 

+ 

E 

24 

# 

3 

25 

2 

2 

26 

= 

— 

27 

) 

6 

28 

X 


29 

stop 

0 

30 

= 

— 

31 

T 

A 

32 

goto 

2 

33 

1 

1 

34 

3 

3 

35 
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(set temperature:) 


Pre-execution: 

at / at /goto/0/0/T/RUN 
Execution: 


5V/RUN /j 


I / RUN / 51 
I / X / Z L / RUN / 5V 0 
V L / + /RUN / 5V 0 


Repeat for all required values of 5V 
e.g. for sine wave, 5V = V sin cot, 

/oo/X/t/ = / at /sin/X/V/ RUN / I / RUN / 51 


etc. 
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OPERATING POINT 
OF DIODE- 
RESISTOR 
COMBINATION 



V= IR + 


nkT 


CM, 4 


Newton-Raphson method gives the iteration 
formula for I 


l' = 


V + 


nkT 


q 




For forward-biased diodes, I > l s , so this 
simplifies to 


V + 


l' = 


nkT / 

q V 


1 — £n 


R + 


nkT 

qi 


If I is mA and V Q = diode voltage at l 0 = 1 mA, 


V-V„ + 


nkT 


1 -in- 

■ n 


R + 


nkT 

qi 


where V n = fin -I 2 


-f 

G 

00 

X 

• 

01 

( 

6 

02 

In 

4 

03 

sto 

2 

04 

# 

3 

05 

• 

A 

06 

0 

0 

07 

8 

8 

08 

6 

6 

09 

1 

1 

10 

7 

7 

11 

1 

1 

12 

X 


13 

stop 

0 

14 

X 


15 

V 

A 

16 

MEx 

5 

17 

+ 

E 

18 

rcl 

5 

19 

+ 

E 

20 

stop 

0 

21 

= 

— 

22 

T 

A 

23 

MEx 

5 

24 

) 

6 

25 

+ 

E 

26 

stop 

0 

27 

-f 

G 

28 

rcl 

5 

29 

-f- 

G 

30 

= 

— 

31 

= 

— 

32 

= 

— 

33 

= 

— 

34 

stop 

0 

35 
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Consistent units are: 

V in mV, R in £2, I in mA 

n = 1 for germanium diodes or for transistor junctions 

n = 1 -5 for silicon p-n diodes 

... . n kT ,. 

Find-to use in program (in mV) 

q 

or use T each time in program execution if desired. 

Execution: 

(with T) av / av / goto / 0 / 0 / 

RUN / r 
RUN / |" 

(repeat until values converge) 


I / RUN/ \ 7 J \ V/ 7V 

IT / X / n / RUN / J ( V —V 0 
/RUN/ Sr/x/n ! / kHv-v /V o | /run / r / 


(without T) — enter a constant as indicated (to lesser accuracy as 
required) at steps 06 to 14 

I / RUN / J J / RUN / R / RUN / I' 

/RUN/{ } / RUN / R / RUN / I” 

( may be found from: / n/ X/ T/ X/ 1-086171 1 = 1 —— mV; 

q kT q 

at 25°C — — 25-6789 mV) 

q 
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OPERATING POINT OF 
TRANSISTOR 
IN BASE-POTENTIAL 
DIVIDER AND 
EMITTER RESISTOR 
BIAS 



Preliminary equations: 


V = ^cc ^2 

Rt + R 2 


D _ D + _ n l n 2 _ 

4 (R,+ R 2 ) (h FE + 1) 

l E is given by the diode-resistor program with 
V 0 = V BE of transistor at 1 mA, R and V as 
given above, and n = 1 . 


Circuit equations: 

V E — I E R 4 l ( 

V BE =—fin l E (mA) + V 0 

H 

Vb = V e + V be 


Vc V cc — l E R 3 
V C e = V c -V e 


h FE 

1 +h FE 


Prelim, program 


4 

E 

00 

stop 

0 

01 

sto 

2 

02 

4 

G 

03 

( 

6 

04 

— 

F 

05 

rcl 

5 

06 

) 

6 

07 

4* 

G 

08 

X 

• 

09 

▼ 

A 

10 

MEx 

5 

11 

4 

G 

12 

stop 

0 

13 

4 

E 

14 

stop 

0 

15 

= 

— 

16 

stop 

0 

17 

X 

* 

18 

rcl 

5 

19 

— 

F 

20 

stop 

0 

21 

= 

— 

22 

stop 

0 

23 

v 

A 

24 

goto 

2 

25 

0 

0 

26 

0 

0 

27 



28 



29 



30 



31 



32 



33 



34 



35 
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Final program 


1. Enter preliminary program . . . 

Execution: 

R 2 /RUN/R 1 /RUN/h FE +1 /RUN/R 4 / 
RUN / R 

V cc / RUN / V / V 0 / RUN / V - V d 

2. Next enter diode and resistor program 
(see page 50) and execute to find l E 

3. Finally enter program in box and run: 

Execution: 

I / RUN / T / RUN / V Q / RUN / V BE / R 4 / 
RUN / V E / RUN / V B /h FE / RUN / -l c / R 3 / 
+ /Vcc/-/Vc/V e / = /V ce 


sto 

2 

00 

In 

4 

01 

X 

• 

02 

# 

3 

03 

* 

A 

04 

0 

0 

05 

8 

8 

06 

6 

6 

07 

1 

1 

08 

7 

7 

09 

1 

1 

10 

X 

* 

11 

stop 

0 

12 

4 

E 

13 

stop 

0 

14 

4 

E 

15 

( 

6 

16 

stop 

0 

17 

X 

• 

18 

rcl 

5 

19 

) 

6 

20 

stop 

0 

21 

= 

— 

22 

stop 

0 

23 

4 

G 

24 

( 

6 

25 

4 

E 

26 

# 

3 

27 

1 

1 

28 

= 

— 

29 

) 

6 

30 

— 

F 

31 

X 

* 

32 

rcl 

5 

33 

X 

• 

34 

stop 

0 

35 
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ELECTRON DYNAMICS 



(S.l. Units) 

To find electrostatic deflection, velocity, 
sensitivity, deflection and angle of deflection 
in cathode ray tube. 

(non-relativistic) 



S = 

D = 


IL 

2dV a 

ILV d 

2dV a 


= SV d 


d = arctan ^ = arctan 

e = electron charge = 1 -6022 x 1CT 19 C 
m = electron mass = 9-1096 x 10 ~ 31 kg 


Execution: 

V a /RUN/v/d/ RUN/I / RUN/L / RUN/ 

S/ V d / RUN / D / RUN / 6 


sto 

2 

00 

V* 

1 

01 

X 

• 

02 

# 

3 

03 

5 

5 

04 

• 

A 

05 

9 

9 

06 

3 

3 

07 

0 

0 

08 

9 

9 

09 


A 

10 

5 

5 

11 

= 

— 

12 

stop 

0 

13 

+ 

E 

14 

-r 

G 

15 

X 

• 

16 

stop 

0 

17 

-r 

G 

18 

rcl 

5 

19 

X 


20 

stop 

0 

21 

sto 

2 

22 

X 

* 

23 

stop 

0 

24 

4- 

G 

25 

stop 

0 

26 

rcl 

5 

27 

= 

— 

28 

T 

A 

29 

arctan 

9 

30 

stop 

0 

31 

▼ 

A 

32 

goto 

2 

33 

0 

0 

34 

0 

0 

35 
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DEFLECTION OF 

RELATIVISTIC 

ELECTRONS 

Small transverse field as in cathode ray tube 



Execution: 
for D or 9 only — 

V a / RUN/V d / RUN/d/RUN / I / RUN/ 

tanOj /X/L/-/D 

t / RUN ID 

or, for S, D and 6 

V a / RUN / L/ RUN / d / RUN / !/ RUN/S/ 

X/V d /T/D / L/ = / tan 0 / RUN / 0 


X 

• 

00 

( 

6 

01 

# 

3 

02 

1 

1 

03 

* 

A 

04 

9 

9 

05 

5 

5 

06 

6 

6 

07 

9 

9 

08 

• 

A 

09 

• 

A 

10 

6 

6 

11 

= 

— 

12 

sto 

2 

13 

) 

6 

14 

+ 

E 

15 

# 

3 

16 
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MAGNETIC 
DEFLECTION IN 
CATHODE-RAY TUBE 
(non-relativistic) 



6 = arcsin 


leB 

mv 


= arcsin 



D = L tan 6 



IL_ /T 

B \A/ry2m 


(magnetic deflection 
sensitivity for small 0) 


Execution: 

V/RUN / I/ RUN/B/RUN 10 /RUN / L/ 
RUN /S /RUN /D 


Notes: 

1. In practical wide angle tubes the field will 
not be uniform. 

7r 

?. If 0 > —is computed, a value of 0 with no 

error symbol will be shown. This means the 
oloeiron is reversed in direction by the field, 
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VELOCITY OF 
ACCELERATED ION 
(non-relativistic) 


M = mass of ion 

ne = charge on ion 

V = accelerating potential (volts) 



Execution: 


V/RUN/n/RUN/M/RUN/v 
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MASS AND VELOCITY 
OF ACCELERATED 
ELECTRON OR ION 
(relativistic) 

V = accelerating potential (volts) 


, eV i 
m r = m 1 + —~ 

\ me 2 / 


-2 


( 1 + S) 

For electron 
e = 1-6022 x 10 ‘ 19 C 
m = 9-1096 x 10 ~ 31 kg 
c = 2-9979 x 10 s ms ' 1 

-^2 = 1 -9569 x 10‘ 6 V _1 
me 

Execution: 

V/RUN/v / at / rcl / X / 9-1096 / •/•/ 31 /=/ 

m, 

For ion of mass M and charge ne: 

n/X/V/X/m/-5-/M/RUN/v,./ at / rcl/ 

X / M / = / M, 
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ELECTRON MOTION 
IN TRANSVERSE 
MAGNETIC FIELD 


Radius and period of orbit, pitch of helical path. 


B i 



n ^ 2u\t\ r ■ . vT 

Period T = —— radius of circular path r c = — 

eB z7T 

Radius of path r = 

mv . \/2m W . . vT . . 

„ sin 6 = -— sin0= — sin 0 

eB e B 2?r 

Pitch of path P = 

27rmv \/2m\/V 

—— cos d = 2 tt - — cos 6 = vT cos d 

eB e B 


d = angle of injection (relative to B) 

27rm _ __ , , 

-— 3-5724 x 10 11 


Pre-execution (if desired): 

V / at /V7/ X / 5-9309-5 / = / v 


Execution: 

v/ RUN / B / = / T / RUN /r c /0 / RUN /r / 
6 /RUN / = / P 
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CAPACITANCE OF 
SPHERE, CONCENTRIC 
SPHERES, 
CONCENTRIC 
CYLINDERS 

(i) Sphere of radius a: 

C = 47 re 0 e r a 

(ii) Concentric spheres of radii a and b (b > a) 


(iii) Concentric cylinders of radii a and b (b > a), 
and length L: 

n - 47re 0 e r L 

Pre-execution and execution: 

(i) Sphere: 

at / at / goto / 1 / 9/a / RUN /e r / RUN /C 

(ii) Concentric spheres: 

at / at / goto / 1 / 2/a / RUN/b / RUN/ 
ej RUN /C 

(iii) Concentric cylinders: 

at / at / goto / 0/ 0/ b/ RUN/a/RUN/ 
L/RUN/e r / RUN/C 

(4tt 6 0 = 1-11265 x 10’ 10 F m" 1 ) 

(S.l. units) 
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FIELD STRENGTH 
AND POYNTING 
VECTOR DUE TO 
ELECTRIC DIPOLE 



H = 


Ids . 


2 Ar 


sin Q sin wt — 


2 rrr 


E = Z|H where Z, = /— = p 0 c — 376-73J2 
v e 0 

P=EH (power flow per unit area) 

p _ E P k H pk 
' av 2 


X =— where c = 2-9979 x 10 s ms ’ 1 


Execution: 

/ AT / AT /goto/0/0/f / RUN /A) 
or/ AT / at / goto / 1 / 3 / X 7 

/ RUN / 0 / RUN / r / RUN / j d$ J 

/ RUN / H pk / RUN / E pk / X / at / rcl / * / P pk / 
2/=/P av 
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RADIATION FROM 
LOOP (OR FERRITE) 
ANTENNA 


z 



H = NIA sin 6 sin ^cot 

E = ZjH 
P= EH 

D _ ^pk^pk 


For ferrite, replace NIA by NIA /x eff 

Additional formulae: 

Radiation resistance: 

^ NA 
X 2 


R, = ^ Z, 


= 62298-7 


Total power radiated: 

V 2 I 2 R 

p _ 1 2 p _ v rrns _ 1 1 ' I 

' r ' rms r ' r p 2 
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Execution: 

I NA 
N /X / A 

N / X / 3-14159 / X/ at /(/r/x/ at /) 

N/X/£/ X / b 

etc. 

( / X / Meff) * / RUN / 0 / RUN / r / RUN / I / 

RUN / H pk 

^ /X/376-73/=/E pk ) 

] /X/X/377 / = / Ppk S / RUN / R r 
l / X / X / 188-365 / = / P av * 

* omit these two terms for air-cored loop. 


Note: Not applicable to near-field radiation 
pattern, r < 10R where R = radius of loop. 
























































RADIATION FROM 

HALF-WAVE 

DIPOLE 



E = Z| H 

P=HE Pav = - H " Ep k Z, ^ 37712 

Additional formulae: 

Radiation resistance: 

Rr =^r ( ln 27ry + 7 ^yW 72-912 

' 2n ’ ' 

Power outputs: 


(since I = peak current) 


Execution: 

0 / RUN / r/ RUN / I / X / H pk / 

| RUN / E pk 

t X / RUN / P„ k / -f- / 2 / = / P av 

This also applies to %-wave unipole above ground 
(radiation resistance 36-512) 

Range 0-16 <0 < 1-57 
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FOURIER ANALYSIS 


The Fourier series expansion of the function 
f(ojt) is: 

= — + 2 (a k cos kcot + b k sin kcot) 

2 k = 1 

7T 

where a k =— f(cot) cos kcot d(cot), 

7T 

—7T 

7T 

b k =— f(cot) sin cot d(cot) 

—7T 

If e(cot) is a periodic voltage of amplitude E pk , 
its Fourier series is: 

e(cot) = E c + ^ E k cos (kcot + 0 k ) = E pk f(cot) 

where E 0 E pk , E k = ^/a k + b k E pk 

The coefficients can be formed by numerical 
integration for non-analysis waveforms. 




























































FOURIER ANALYSIS 

Half wave rectified and full-wave rectified 
sine wave 



Half-wave: 

e(ojt) = — E pk + 
7r p 


E pk sin cot 


*~pk 

7r 


X 


1 


n = 1 (4n 2 — 1 )7T 


cos 2n cot 


Full-wave: 

e(cot) = —E pk — — E pk J i ( " 4 n 2 _ i )7r cos2n wt 
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Half-wave: 

_ 1 

E ° "7 Epk 


C p k 

E2n= (4n 2 — 1 )tt 


Full-wave: 


E„ =-E 


7T 


E, n = 


P k 


2E 


P k 


2n (4n 2 — 1 )tr 


C - E pk 
El 2~ 


E 2n + i = 0 

E, =0 
E 2n + i = 0 


Execution: 

Half-wave: 

E pk / RUN / E 1 / RUN / E 0 / 1 / RUN / E 2 / 2 / RUN / E 4 / • ■ • 

Before re-execution: / goto / 0 / 0 

Full-wave: 

AT / AT / goto / 0 / 5 / E pk / RUN / E 0 / 1 / RUN / E 2 / 2 / RUN / 

E 4 / • • • 
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FOURIER ANALYSIS 

Frequency modulated wave 

(iterative computation of Bessel functions) 



Where m = modulation index 
e(wt) = E pk cos (co c + m cos co s )t 
= E pk J 0 (m) cos co c t + 

Jt (m) [sin (co c — oo s )t — sin (cu c + co s )t] — 

J 2 (m) [cos (co c — 2co s )t + cos (co c + 2co s )t] - 
J 3 (m) [sin (co c - 3co s )t - sin (co c + 3cu s )t] + 

J 4 (m) [cos (co c + 4co s )t + cos (co c — 4co s )t] + ■ ■ • 


where J n (m) = 

1 / m\ n ~ 


m 


(-1) r 


m 


2) r = 0 r!(n + r)!\ 2 
(—1) r n! / m \ 2r 


2r 


n! V 2 / r= 0 r!(n + r)! \ 2 
1 /m\ n 


-If 

n! \ 


lim S k 


k 00 


(where S k is the sum of the series to k terms) 
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Execution: 


at / at /goto/O/O/m/RUN/n/RUN/ 

1 / RUN /n/ + / 1 / RUN /m / RUN / S, 

/ RUN/2/RUN/n/ + /2/RUN/m/RUN / 
S 2 • • ■ 

• • •/RUN / r/RUN/n/ + /r/RUN/ m / 

RUN / S r 

(Continue until S r is sufficiently close to S r _ 1 to 
have converged to required accuracy.) 


Post execution: 

/ / n! / = / J n (m) 


or 

/-r/n/-^/n — 1 / -Wn — 2 / + /■■■/ + / 2 / = / J n (m) 
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FOURIER ANALYSIS 

Square wave 


e(u>t) 1 
Epk 
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n 

CO 

i 

H 

II 

c5l3 

I -- 





e(cot) = E pk 2 


n = i (2n — 1 )tt 


sin (2n - 1 )cot 


i.e. E k = 0 if k = 2n 


- 4E pk 
(2n — 1) 7r 


if k = 2n — 1 


Execution: 

RUN / E pk / RUN / E, / RUN / E 3 / RUN / ■ • • / 
RUN / E 2n _,/■•■ 

If E pk is not entered, the relative amplitude will 
be given. 

Check: 

/ at / rcl / recovers the current value of (2n - 1). 
Clear before running again. 

Before re-execution: 

AT / AT / goto / 0 / 0 
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FOURIER ANALYSIS 

Triangular wave 



oo 8 

fi(cot) Epk ^ /r\ i \2 2 

p n = i (2n — 1r 7r 

g 

Ek = Epk (2n - 1 ) 2 7r 2 lf k = 
= 0 if k = 2n 


cos (2n — 1 )oot 
2n - 1 


Execution: 

RUN / E pk / RUN / E,/ RUN / E 3 /- - • 

Post-execution at any stage: 

at / rcl / (2n - 1 > / c /ce / (E 2n _ 1 ) 


Before execution: 
at / at / goto / 0 / 0 
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FOURIER ANALYSIS 

Sawtooth wave 



e(cot) = E k 2 — sin neat 

n = 1 n7T 


Execution: 

RUN / E pk / RUN / E, / RUN / E 2 / RUN / • • • / 
RUN /£„•*• 

At any stage, current harmonic order n can be 
recalled: 

/ at / rcl / (n) / c /ce / (EJ / RUN / • • • 

Before re-execution: 
at / at / goto / 0 / 0 
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FOURIER ANALYSIS 

Rectangular pulse train of duty cycle d 



e(cot) - d E pk + E pk 2 — sin n 7 rd cos neat 

n = 1 n7T 

2 

E 0 =dE pk E n = — sin nrrd E pk 
Pre-execution: 

1-5707963 / at / sto / at / at /goto/0/0 / 

d / X / E pk / = / E 0 

Execution: 

n / RUN /d / RUN / E pk / RUN / E n 
n = 1, 2, 3, • • • 

Notes: 

Ignore negative signs in results 

If E appears after second / RUN / : 

(i) Note result r 

(ii) Press / 3 / c /ce / 

(iii) Enter r / X / E pk / RUN / E n 
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FOURIER ANALYSIS 


Asymmetrical triangular wave 



e(cot) = E pk 2 


E„=0 E = 


Pk n = 1 n 2 7T 2 d(1 -d) 
2 


n n 2 7r 2 d(1 — d) 


sin n7rd sin noot 
sin n7rd E pk 


Pre-execution: 

AT / AT / goto / 0 / 0 / 1-5707963 / at / s to / 


Execution: 

AT/rcl/X/n/X/d / RUN / d / RUN / E pk / 

= /E„ 

Notes: 

Ignore negative signs in results. 

If E appears after first / RUN / : 

(i) Note the result r 

(ii) Press / 3 / c /ce / 

(iii) Enter r / X / at / ( / 

(iv) Continue with execution: 
d / RUN / E pk / = /E,, 
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